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8. Einleitung 


Die kleinen Computer der Serie LASER 118, 210, 310 und die VZ200 verdanken 
ihre Popularität nicht zuletzt dem komfortablen und umfangreichen BASIC- 
Interpreter, der sich in Speicherbausteinen (ROMs) im Innern des Rechners 
befindet und allen Nutzern nach dem Einschalten in all seinen Funktionen 
vollständig zur Verfügung steht. 


Es handelt sich hier um eine leicht modifizierte Variante des bekannten und 
weltweit verbreiteten MICRÖSOFT BASIC, das Bestandteil einer Grund-Betriebs- 
software ist. Diese Betriebssoftware besteht aus einem Grund-Betriebssystem 
und dem umfangreichen BASIC-Interpreter. 


Als Erweiterung dazu dient ein Disketten-Betriebssystem (D0S = Disk Operating 
System). Dieses ist ebenfalls in ROM-Bausteinen fest gespeichert, ist jedoch 
nicht im Hauptrechner untergebracht, sondern befindet sich in der Disketten- 
steuerung. Durch Anschluß der Diskettensteuerung an den System-Bus werden 
diese ROM-Bausteine aktiviert und fügen die erforderliche Software zum Be- 
trieb der Diskettenlaufwerke dem Grundsystem hinzu. 


Eine weitere Leistungssteigerung läßt sich durch ein EXTENDED BASIC - Paket 
erreichen, das in Deutschland entwickelt wurde und den Sprachumfang des ein- 
gebauten BASIC-Interpreters un mehr als 38 Befehle erweitert, darunter so 
leistungsstarke wie PLOT, PAINT, CIRCLE, RENUMBER und viele andere mehr. 


Ziel dieses Buches ist es, die wesentlichen Funktionen des BASIC-RÖMs zu be- 
schreiben, damit Sie die internen Vorgänge in Ihrem Rechner besser verstehen 
lernen und alle Funktionen optimal nutzen können. Das Buch soll auch dem 
Assembler-/Maschinenprograme-£xperten die Möglichkeiten eröffnen, Funktionen 
des BASIC-ROMs in eigenen Programmen zu nutzen, sei es, um einfache Daten- 
Konvertierungen auszuführen, die Ein-/ÄAusgabeschnittstellen zu benutzen oder 
mathematische Funktionen (z.B. Sinus, Kosinus usw.) nicht selber programsie- 
ren zu Russen. 


Es kann nicht jede Routine bis ins letzte Detail beschrieben werden. Die 
hier enthaltene Beschreibung müßte jedoch ausreichen, darüber hinausgehen- 
de Detailuntersuchungen in der RöM-Auflistung selbst vornehmen zu können. 


Eine detailliert dokumentierte ROM-Auflistung und eine ausführliche Be- 
schreibung des Disketten-Betriebssystens fur LASER 119-318 und VZ288 sind 
als eigenständige Bände in Vogel-Verlag erschienen. 


Mein Dank gilt Herrn Dieter Effkemann fur seine Unterstützung und Zuarbeit 
zum Kapitel 12 "Funktionsableitungen” und meinem Sohn Rainer für das Aus- 
testen der Programmbeispiele und nuhevolles Korrekturlesen. 
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j. Was ist ein Betriebssystem 


Ein Rechner ohne jede Art von Betriebssystem ist ein nutzloser Kasten, ge- 
füllt mit elektronischen Bauteilen. 


Der Bedarf nach einen Betriebssystem ergibt sich allein schon aus der Not- 
wendigkeit, eine Kommunikationsmöglichkeit zwischen dem Rechner und seiner 
Umwelt herstellen zu mussen, Dazu gehört u.a. die ständige überwachung aller 
Eingänge, z.B. der Tastatur, um Anweisungen und Daten entgegennehmen zu kön- 
nen und auch die Ausgabe von Daten, z.B. auf einen angeschlossenen Bild- 
schirm, ur Ergebnisse darstellen bzw. übermitteln zu können. 


Wenn Sie an Ihrem LASER-Computer ein BASIC-Programse eintippen und an- 
schließend ausführen lassen wollen, so muß es im Rechner bereits ein Pro- 
gramm geben, das Ihre Eingaben zunächst einaal entgegennimat und an die rich- 
tige Stelle des Speichers bringt. Auch der Ablauf des Programms bedarf star- 
ker Unterstützung dieses internen Programms. Ein solches im Rechner vorhan- 
denes Programe ist das Betriebssystem. 


Es gibt mittlerweile Tausende verschiedener Betriebssysteme, vom einfachen 
System im ROM der Home- und Personal-Computer bis zu komplexen Gebilden, die 
bei Großrechenanlagen ganze Platteneinheiten belegen können. 


Die Unterschiede sind zum einen durch die verschiedenen Rechner mit der un- 
terschiedlichsten Hardwareausstattung bedingt, zum anderen aber auch durch 
die Anforderungen, die an ein solches System gestellt werden. Das Betriebs- 
system eines Rechners für eine Prozeßsteuerung sieht bestimmt ganz anders aus 
als das für eine kaufmännische Anwendung, obwohl beide ggf. auf der gleichen 
Hardware ablauffähig sind. 


Aus diesen Grunde läßt sich auch keine genaue Definition eines Betriebs- 
systems aufstellen. 


Trotz aller Unterschiede sind jedoch die Grundbausteine der Betriebssuste- 
we ähnlich und ganz allgemein lassen sich funktionell folgende Bausteine in 
den meisten Systemen erkennen: 


i. Ein Monitor-Programe, das ständig alle Systemeingänge überwacht (z.B. 
die Tastaturabfrage). 


2. teräte-Treiberroutinen, die die speziellen physikalischen Bedürfnisse 
der angeschlossenen peripheren Geräte wie Tastatur, Bildschirm, 
Kassette, Diskette oder Drucker befriedigen. 
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3. Allgemeine Dienstroutinen, die nach Eingabe bestimmter Kommandos 
Systemfunktionen initialisieren (im LASER z.B. LIST, CLOAD). 


4. Sprachumsetzer (Compiler, Assembler, Interpreter), die den Einsatz 
einer Programsiersprache ermöglichen (z.B. BASIC, PASCAL, FORTRAN). 


5. Laufzeit-Unterstützungsroutinen für die jeweilige Programmiersprache. 
Dies sind u.a. die arithmetischen und mathematischen Funktionen, für 
die fertige Routinen im Betriebssystem vorhanden sind, die von der 
jeweiligen Sprache nur aufgerufen werden. 

6. Hilfsroutinen zur Geräte- und Speicherverwaltung. 

Diese pflegen interne Tabellen, verwalten die verschiedenen Speicher- 

bereiche und steuern den Zugriff zu den Ein-/Ausgabegeräten. 


In den folgenden Abschnitten sollen diese Komponenten innerhalb des LASER- 
Betriebssystems identifiziert und beschrieben werden. 


Da sich beim LASER-Computer die Betriebssoftware in ROM-Bausteinen innerhalb 
des Rechners befindet, ist sie nach Einschalten sofort in all ihren Funktio- 
nen verfügbar. 


Rei anderen Rechnern und Betriebssystemen muß die Betriebssoftware zuerst 
von einem externen Speicher (Platte, Band, Diskette, Kassette) eingelesen 
werden. Dazu ist aber auch schon ein kleines Programm erforderlich. Dieses 
bezeichnet man als Urlader (IPL = Initial Program Loader), das irgendwo im 
Systems existiert oder von Hand einzugeben ist. 
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2. Allgemeines zum LASER 118-318 Betriebssysten 


Das Betriebssystem der LASER-Computer 118-318 und des VZ2BR ist ein in sich 
abgeschlossenes Programmpaket, das selbständig ablauffähig ist {stand alone 
system), 


Es beinhaltet einen BASIC-Interpreter als Sprachumsetzer sowie die erfor- 
derlichen Unterstützungs- und Hilfsroutinen zur Ausführung von BASIC-Pro- 
grammen. Darüberhinaus bietet es die Möglichkeit, Programme auf Kassette zu 
speichern und von Kassette wieder zu laden. 


Das Disketten-Betriebssystem ist nur bei angeschlossener Diskettensteue- 
rung verfügbar. Es erweitert den Sprachumfang des BASIC-Interpreters um An- 
weisungen zur Diskettenbearbeitung und bietet die Möglichkeit, Programme auf 
Diskette zu speichern und wieder von dort zu laden. 


Ist ein Diskettenlaufwerk angeschlossen, so wird das Disketten-Betriebssy- 
sten beim Einschalten des Rechners mit dem internen Betriebssystem ver- 
knupft. 


Das Disketten-Betriebssysten hat einen eigenen Interpreter zur Erkennung und 
Bearbeitung der zusätzlichen Befehle, macht aber intensiven Gebrauch von Un- 
terstutzungs- und Hilfsroutinen des internen Systems und ist daber keine 
selbständig ablauffähige Programmeinheit. 


EXTENDED BASIC ist eine Spracherweiterung des BASIC-Interpreters und bietet 
den Komfort zusätzlicher Befehle, vor allem im Grafik-Bereich und bei der 
Prograns-Entwicklung. Es ist je nach Ausbaustufe Ihres Rechners auf Kassette 
oder Diskette verfügbar und muß zusätzlich zua internen Betriebssystem in den 
Rechner geladen werden. 
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A Kommunikations- I 
t bereich t 


t 
t 
l 
freier Speicher t 
(RAM) t 

1 


! MS-Arbeitsbereich ! 





ait DOS 


Die ersten i6K sind ausschließlich dem internen Betriebssystem zugeordnet. 


Wenn Sie sich die 5 Grundbausteine eines Betriebssystems vor Augen halten, so 
ergibt sich in etwa die nachstehend aufgeführte Lage in diesem Bereich. 

Es wurde allerdings keine klare Trennung durchgeführt, einzelne Codeele- 
mente, die von ihrer Funktion einen bestimmten Grundbaustein zuzuordnen 
sind, wurden wild im Speicher verstreut. Vor allem am Ende des ROM- 
Bereichs finden Sie eine Reihe von "Rucksäcken’, die bei späteren Versions- 
änderungen dort angelegt wurden. 








BODOH --—--—-——----- 
i Geräte-Treiber ! 
8700H = — 
t Arithmetische À 
u. mathematische \ 
! Routinen s 
1680H ---—— 
k Unterstutzungs- i 
! routinen ! 
AH — 
! Monitor i 
ICH 
! BASIC l 
! Interpreter i 
2080H ------- 
! Kilfsroutinen | 
KBBaH -——---——--—-—---- 











Ist ein Diskettensustem angeschlossen, sind die folgenden 8K durch das Dis- 
ketten-Betriebssysten belegt, ansonsten ist der Adreĝbereich bis 6800H nicht 
Rit Speicherbausteinen belegt. 


Es folgt ein Bereich, der ait ’Ein-/Ausgabebereich’ betitelt ist. Hinter die- 
sen Adreßraus verbirgt sich kein Speicherbaustein. Bei entsprechender Adres- 
sierung werden vielsehr direkte Schnittstellen zu Ein-/Ausgabebausteinen an- 
gesprochen. So ist z.B. die Tastatur als Matrix in diesen Adreßraun verdrah- 
tet, wobei jede einzelne Taste direkt abfragbar ist. 


Es folgt der Bildschiraspeicher mit 2K. Dahinter verbirgt sich ein 2K RAM- 
Baustein, der vom Bildgenerator ständig ausgelesen und dargestellt wird. 
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In darauffolgenden Kommunikationsbereich werden vom BASIC-Interpreter Ar- 
beitsbereiche, Adreßzeiger und Verwaltungstabellen angelegt und benutzt. 


Hinter dem Kommunikationsbereich liegt der Freispeicher. Das ist der Be- 
reich, in dem vom Betriebssystem BASIC-Programme und zugehörige Variable ge- 
speichert werden. Dort können Sie auch Ihre Assembler- oder Maschinen- 
programme laden und zum Ablauf bringen. 


Bei angeschlossenen Diskettenlaufwerk wird bei der Syusteminitialisierung am 
Speicherende vom DOS ein 318 Byte langer Arbeitsbereich angelegt, der für das 
DOS ähnliche Funktionen wie der Kommunikationsbereich beim BASIC erfüllt. Ist 
kein Diskettenlaufwerk angeschlossen, reicht der Freispeicher bis zum RAN- 
Ende. 
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4, Der Ein-/Ausgabebereich (6888H - &FFFH) 


Dieser Speicherbereich dient der direkten Kontrolle von Ein-/Ausgabebau- 
steinen wie Tastatur, Lautsprecher, Kassette und Bildgenerator. 


Bei Eingabe- oder Ausgabeadressierung haben die jeweiligen Bits unter- 
schiedliche Bedeutung. 


über diese Adressen eingelesen werden die Tastaturmatrix, die Kassetten- 
eingabe und der vertikale SYNC-Puls des Bildgenerators. 


Ausgabeseitig werden uber diesen Adreßbereich der Bildgenerator, der Laut- 
sprecher und die Kassette gesteuert und angesprochen. Da ein ausgegebener 
Wert nicht wieder zuruckgelesen werden kann, hält das Betriebssystem stets 
eine aktuelle Kopie des Ausgabewertes in der Adresse 783BH des Kommunika- 
tionsbereichs und benutzt diese als Referenz, falls eine weitere Ausgabe er- 
folgen soll. 


Außer bei der Tastatureingabe ist es belanglos, welche Adresse des Adref- 
raumes Sie ansprechen, es werden nur die oberen 5 Adreßbits ausgewertet. 


Eingabe 
7 6 5 4 3 2 1 2 Bit 


E 
Uo d ! 
Vertikal Kassette Tastatur 
SYNC 
Puls 


Ausgabe 


76543218 Bit 


t 
t Bild- Kass, ! 
1 





ı 
Gen. t 
! 
Lautsprecher 
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Tast i 


Die Tastatur bildet in dem Adrefraum 6800H bis SBFFH eine Matrix von 8 Zeilen 
und é Spalten, die wie folgt organisiert ist: 


A8 - A15 = óB a > rn a a ae 

D D DR B DM 5 
A7 Ab AS Ab A3 A2 Al AB 
eııı ı 1 114 H L : K į J = 487FH 
180111141 14 Y 0 Ret I P y = 68BFH 
i i 8Bi ii 11 6 9-98 8B 7 = 68DFH 
t 1i 18l i {1 N . ı Sp M = 6BEFH 
ıııı 18111 5 2 3 i 4 = b8F7H 
t141 11101 í B X BHC Z V = &8FBH 
ııı 11181 5 C@triD A F = 6SFDH 
1 i 1111198 T HW E Q R = &BFEH 


Sie sehen, daß eine '8" in einen Adreßbit die auszulesende Zeile bestimmt. 
Ist eines der gelesenen Datenbits = B, so ist die zugehörige Taste im 
Schnittpunkt der Matrix gedrückt. 


Werden mehr als ein Adreßbit = B gesetzt, so werden auch gleichzeitig meh- 
rere Zeilen ausgelesen. Mit der Adressierung von &8B8H können Sie somit die 
Matrix auf einmal auslesen. 


Kassetten-Eingabe 


über Bit & der Adresse 488@0H (oder irgendeiner anderen des Bereichs 
&BBBH-AFFFH) werden die Pulse vom Kassettenrekorder eingelesen. 


Bildschi 


über den Adreßbereich &8BBH-AFFFH können Steuerinformationen an den Bildge- 
nerator übertragen werden. 


Bit 3 = Bildschirseodus 
B = Text 
1 = Grafik 


Bit 4 Darstellungsfarbe 
d = grün 


1 = rot 


Lautsprecherausgabe 


Mit den Bits B und 5 kontrollieren Sie den eingebauten kleinen Lautspre- 
cher. Die beiden Bits aussen immer komplenentär sein, sonst erzeugen Sie nie 
einen Ton {also Bit 8=1 und Bit 5=9 oder umgekehrt). 

Durch das Usschalten dieser Bits in einer bestimmten Frequenz wird die Tonhö- 
he bestimat. 


ssett 


über die Bitpositionen 1 und 2 des Adrefraumes &BB@H-4FFFH geben Sie Daten- 
bits auf die Kassette aus, wobei beide Bits stets gleich sein sollten. 


Bei allen drei Ausgaben {Bildgenerator, Lautsprecher, Kassette), müssen Sie 
stets den vorherigen Status beachten und nur die Bits ändern, die Sie ändern 
wollen. Daher wird von den ROM-Routinen in Adresse 783BH des Kommu- 
nikationsbereichs stets eine aktuelle Kopie des Ausgabebytes gehalten. Sie 
sollten das auch beachten und nachvollziehen, falls Sie einmal direkt etwas 
an diese Bausteine ausgeben wollen. 


Vertikal SYNC-Pulse 


Der vom Bildgenerator u.a. erzeugte Vertikal SYNC-Puls (bei PAL alle 28 ns) 
wird normalerweise benutzt, us in der CPU einen Interrupt zu erzeugen. Wie 
später noch eingehend beschrieben, wird dieser Interrupt zur Synchronisation 
der übertragung in den Video-RAM benutzt, um ein flackerfreies Bild zu erhal- 
ten. 


Dieser Puls ist auch über Bit 7 des Adreßbereichs S&8BBH-SFFFH tastbar, selbst 
wenn die Interrupts ausgeschaltet (disabled) sind. Sie können diesen dazu 
benutzen, innerhalb Ihrer Naschinenprogramee auch bei ausgeschalteten Inter- 
rupts eine Bildschira-Sunchronisation durchführen zu können, ohne eine eigene 
Interrupt-Behandlung programmieren zu aussen. 
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. Bildschi i 


Ina Bildschirsspeicher sind die auf dem Rildschire darzustellenden Zeichen 
einzutragen. Dieser Speicherbereich wird vom Bildgenerator ständig abgeta- 
stet und die Bildinforaation 1:1 auf dem Bildschire dargestellt. Der Bild- 
schiraspeicher belegt den Adrefraum 7000H-77FFH (= 2 K). 


In Textaodus werden nur die ersten 512 Bytes benutzt, wobei jedes Byte ein 
darzustellendes Zeichen aufnehmen kann. Dies entspricht einer Ausgabekapa- 
zität von 16 Zeilen a’ 32 Zeichen. 


Beachten Sie, daß eigene Bildschirmcodes verwendet werden, die nicht immer 
dem ASCII-Code entsprechen. 


Zwei Darstellungsfarben sind uber die Bildschirasteuerung wählbar, dies sind 
grün und rot. Dazu gibt es wiederum zwei Darstellungsarten, wobei die ausge- 
wählte Farbe als Hintergrundfarbe oder als Schriftfarbe Verwendung findet. 
Die Steuerung der Darstellungart erfolgt uber die Adresse 7818H des Kommuni- 
kationsbereichs. Zwischen den Darstellungsarten kann auch uber die inverse 
Zeichendarstellung umgeschaltet werden. 


Innerhalb der Textausgabe ist auch eine Blockgrafik in 8 verschiedenen Far- 
ben aöglich. 


Zeichentabelle: 

BB = 3 BB =K 16 = WM 2 =! =, 37 = 7 
si = å C =L 17 =H 2 =" M=- ®8>:8 
0 = 3B D= MN B= X 3 = $ Æ =., 39=:9 
g =c E =N 19=Y 2 = $ F = / Į = i 
0 =D F =0 %A=1 5= | a = 8 J3 = ; 
G =E = PP B= I =k U= i = <c 
6 =F 1: Kk=:\ Z=? 2=2 J = = 
07? =6 R2=R b=] B= { B=3 E => 
B =H 3:5 E= 4 9=:) 4 =: 4 FF = ? 
Q =I 4=7T ff = aA = * 3 =5 

=J 5 =U 2 = 23B = + » = 6 


Die Codes 4@H bis 7FH stellen die gleichen Zeichen invers dar. 


Ein Blockgrafik-Zeichen wird durch Bit? = 1 gekennzeichnet. 
Die Bitpositionen 4, 5 und & bestimmen eine von acht Farben 


Bit 454 
28298 
8 8! 
2108 
@ i i 
188 
1 @ 1! 
118 
i 1 1 


grun 
gelb 
blau 
rot 
beige 
hellgrun 
= rosa 

= orange 


In den Bitpositionen 8 - J wird die Form der Rlockgrafik bestimt. 


Jede der vier Bitpositionen ist einem Viertel einer Zeichenposition zuge- 
ordnet. Die nachstehende Abbildung stellt die Zuordnung der einzelnen Bits 


dar: 


Er 


Ia Grafik-Modus werden die gesanten 
eine Auflösung von 128 x 64 Punkten (Pixels) zu erreichen. 


2K des Bildschirsspeichers benutzt, um 


In jeden Byte wird die Information von vier Pixels gespeichert, wobei je- 
dem einzelnen Pixel 2 Bits zugeordnet sind. 


Es lassen sich mit diesen 2 Bits vier verschiedene Farben darstellen, wo- 
bei uber die Bildschirnsteuerung (Darstellungsfarbe) zwischen zwei Farb- 
sätzen gewählt werden kann. 


GBBBH 


ði 
16 
11 


Bit4=8 


grun 
gelb 
blau 
rot 


Bit4=1 


weiß {Hintergrund) 
türkis 
orange 
violett 
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6. Der Kossmikationsbereich 


Der Kosaunikationsbereich ist der Merkzettel des Betriebssystems und be- 
findet sich im Adreĝbereich 7800H bis 7AE9H. 


In ihm befinden sich Tabellen, Zeiger und Adressen, die vor Betriebssystem 
dort angelegt und verwaltet werden. 


Darüberhinaus sind dort Arbeitsbereiche und Zwischenspeicher-Bereiche vor- 
handen, die bei der Durchführung arithmetischer Operationen und Ein-/Aus- 
gabe-Operationen benötigt werden. 


Innerhalb des Betriebssystens befinden sich eine ganze Reihe von "RAM- 
Erweiterungsausgängen’. Das sind CALL-Aufrufe auf einen J3-Byte Bereich im 
Komsunikationsbereich. Normalerweise sind die Ausgänge im Kommunikations- 
bereich ait einem RETurn belegt. 


über die RAM-Erweiterungsausgänge lassen sich eigene Anschlußroutinen an die 
verschiedenen Betriebssysteafunktionen anschließen. EXTENDED BASIC nutzt dies 
sehr intensiv, auch das DOS schließt sich über einen solchen Erweiterungsaus- 
gang an den BASIC-Interpreter an. 


Einige Hilfsroutinen, die jeweils vor dem Aufruf modifiziert werden mús- 
sen, wurden ebenfalls in Kommunikationsbereich untergebracht. Dorthin ge- 
bracht werden sie nach dem Einschalten des Rechners während der System 
initialisierung aus dem ROM. Eine dieser Routinen ist ein Unterprogramm der 
Divisions-Funktion. Diese wird aus der ROM-Routine zur Division modifiziert 
und aufgerufen, um spezielle Subtraktionen und Vergleiche durchzuführen. 


Eine Beschreibung jedes einzelnen Feldes des Kommunikationsbereichs finden 
Sie is Kapitel 9 "Adressen und Tabellen des BASIC-Interpreters". 


7, Der Freispeicher 


Der Freispeicher steht Ihnen zur Verfügung, eigene BASIC- und Maschinen- 
programme zu laden und ablaufen zu lassen. 


Nach dem Einschalten des Rechners erstreckt sich der Freispeicher von Ende 
des Komwunikationsbereichs bis zus physikalischen Speicherende, bzw. bis zum 
Beginn des D0S-Arbeitsbereichs bei aktivierten Diskettenlaufwerk. 


Die Grenzen des Freispeichers werden in zwei Adreßzeigern des Kommunika- 
tionsbereichs angezeigt: 


TBAAH/TBASH enthält die Anfangsadresse 
78B1H/7882H enthält die Endadresse 


Durch Manipulation dieser Zeiger können Sie den Freispeicher von oben oder 
von unten her verkleinern. Das bietet sich dann an, wenn man einen be- 
stisaten Speicherbereich vor dem BASIC-Interpreter schützen will {siehe DOS- 
Arbeitsbereich). 


Nutzen Sie den Freispeicher ausschließlich für Maschinenprogramse, so steht 
Ihnen der gesamte Raum uneingeschränkt zur Verfügung, das Maschinenprogramm 
ist für die Verwaltung dieses Raumes selbst verantwortlich. 


Bei BASIC-Progransen übernimat der BASIC-Interpreter des ROM das Speicher- 
Management für den Freispeicher-Bereich. Dieser wird in verschiedene Teilbe- 
reiche und Strukturen unterteilt und dynamisch verwaltet. 


l Kommunikations- : PST = Program 





! bereich t Statesent 
(7TBA4H) ==) 3 nn Table 

! BASIC ! 

l Prograaa-Tabel le ! VLT = Variable 

l (PST) l List Table 
(BFH) => OS — 

! BASIC ! FSL = Free Space 

! Wariablen-Tabelle f List 

: (VLT) : 
(7BFDH) ==) OS 

t t 

t i 

! l 

Á Freispeicher : 

k (FSL) ! 

t t 

t i 





(TBEBH) => —--- 
l Stack x 
(78BAQH) ==} 





t String-Bereich ! 





(78B1H) ==} 


Beachten Sie, daß den oben gezeigten Bereichen keine festen Adressen zuge- 
ordnet sind. Diese Bereiche sind dynamisch, d.h. ihre Größen und Grenzen 
sind fließend und werden ständig den aktuellen Bedarf angepaßt. 


Betrachten Sie die Programs-Tabelle. Diese enthält das geladene BASIC-Pro- 
gramm. Wenn Sie dort eine Programezeile einfügen, so dehnt sich die Pro- 
grase-Tabelle aus, gleichzeitig verschiebt sich der Anfang der Variablen- 
Tabelle, die direkt an die Programs-Tabelle anschließt. Definieren Sie in 
Ihrem Programa eine neue Variable, so vergrößert sich die Variablen-Tabel- 
le, 


Da die Grenzen der einzelnen Bereiche fließend sind, werden ihre aktuellen. 
Adressen in Adreßzeigern des Komsunikationsbereichs geführt. Dies erlaubt 
ein Verschieben der Tabellen entsprechend den Erfordernissen des Programas 
und bietet gleichzeitig dem Nutzer die Möglichkeit der Manipulation. 
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Die Programa-Tabelle (PST) enthält in komprinierter Fors die einzelnen Zei- 
len des BASIC-Programes. Kompriniert bedeutet dabei, daß innerhalb der Zeilen 
die BASIC-Schlusselsorte durch 1-Byte Hexadezimal-Herte {TOKEN) ersetzt sind. 


Die Startadresse der Programm-Tabelle ist im Adreßzeiger 78A4H des Kommı- 
nikationsbereichs enthalten. Nach dea Laden eines Programas bleibt diese kon- 
stant. Wird der Anfang des Freispeichers nicht manipuliert (EXTENDED BASIC 
tut so etwas z.B.), so werden Sie dort den Eintrag 7AE9H vorfinden. 


Die Endadresse der Programe-Tabelle variiert mit der Größe des Programms. 
Sie ist identisch mit der Anfangsadresse der Variablen-Tabelle und ist im 
Adregzeiger bei 78F%H zu finden. 


Die Variablen-Tabelle (VLT) enthält Namen und Werte aller in einem BASIC- 
Programa definierten Variablen. Sie ist in zwei Abschnitte unterteilt, Ab- 
schnitt 1 enthält die einfachen Variablen und Abschnitt 2 dimensionierte 
Variable, d.h. Matrizen. 


Variablen-Namen und -werte werden in der Reihenfolge in die Variablen-Tabelle 
eingetragen, wie sie beim Ablauf eines Programas auftreten. Jede neu auftre- 
tende Variable vergrößert die Tabelle. Einmal definierte Variable verbleiben 
bis zur Neuinitialisierung des Systems. in der Tabelle, d.h. man kann sie 
nicht streichen, sondern höchstens ihren Wert ändern. 


Von Ende der Variablen-Tabelle bis zum Beginn des Stack-Bereichs befindet 
sich der verbliebene Rest des Freispeichers, der sich ja ursprünglich vom 
Ende des Komsmunikationsbereichs bis zum Speicherende erstreckte. Sie sehen 
aus dem Bild, daß dieser Freispeicher von oben (unterer Adrefraum) durch die 
Programsa-Tabelle und die Variablen-Tabelle und von unten {oberer Adreßraun) 
durch den String-Bereich und den Stack-Bereich eingeengt wird. Das geht so- 
lange gut, bis das Ende der Variablen-Tabelle wit dem Stack-Bereich kolli- 
diert. In einen solchen Fall wird die Fehlermeldung "OUT OF MEMORY" ausge- 
geben. $ 


Der Stack-Bereich ist sehr dynamisch. Er dient dem Betriebssystem ständig als 
Zeischenspeicher für Rücksprungadressen und Registerinhalte. Jeder CALL-, 
PUSH- oder RST-Befehl vergrößert den Stack-Bereich un 2 Byte, jeder RET- oder 
POP-Befehl verkleinert den Stack-Bereich entsprechend. 


Vom BASIC-Interpreter werden darüberhinaus noch ganze Speicherblöcke auf den 
Stack geschrieben. Jede FOR-/NEXT-Schleife legt einen 18-Byte Block auf dem 
Stack an und jeder GOSUB-Befehl einen solchen von 7 Byte. 


Der letzte dargestellte Abschnitt hinter dem Stack-Bereich ist der String- 
Bereich. Mit Ausnahme der im Programs fest definierten Textvariablen (in Anfüh- 
rungszeichen im Programmtext enthalten), werden alle Textvariablen {=Strings) 
in diesem Bereich abgelegt. Die Variablen-Tabelle enthält für Text-Variable als 
Wert die Verweisadresse auf den String-Bereich oder die Programm-Tabelle, wo 
der entsprechende Text zu finden ist. 


Die Länge des String-Bereichs wird bei der Initialisierung mit 50 Byte defi- 
niert. Mit dem CLEAR-Kommando kann man diese jedoch variieren. 


8. Funkti des Betri stens 


In den vorausgegangenen Abschnitten war schon mehrfach die Rede von den Grund- 
bausteinen eines Betriebssystems. Nisat man diese Aufgliederung als Anhalt, so 
läßt sich das Betriebssystem des LASER in die folgenden sieben Funktionsberei- 
che unterteilen: 


1. Systen-Initialisierung 

2. Eingabe-Routine 

3. Interpretation und Ausführungssteuerung 
4. Befehls- und Kommandoausführung 

5. Arithmetische und mathematische Routinen 
6. Ein-/Ausgabe - Treiber 

7. System - Funktionen 


Jeder dieser Funktionsbereiche soll jetzt etwas näher durchleuchtet werden. 


In ersten Abschnitt dieses Buches wurde erwähnt, daß das Betriebssystem des 
LASER sich in ROM-Bausteinen befindet und sofort nach dem Einschalten ver- 
fugbar ist. Das ist nur die halbe Wahrheit. Zwar benötigt dieses System kei- 
ne zusätzlichen Komponenten, die von irgendwoher nachzuladen sind, es sind je- 
doch einige Initialisierungsfunktionen durchzuführen, wie z.B. die Einrichtung 
des Komsunikationsbereichs, ehe mit dem Betriebssystem gearbeitet werden kann. 


Was geschieht nun bei der System-Initialisierung ?7? 


Nach dem Einschalten beginnt der Rechner seine Programausführung imser bei 
der absoluten Adresse ® des ROM-Bereichs. Dort wird der Bildgenerator in den 
Textaodus geschaltet und zur Adresse 674H verzweigt. 


Bei 674H wird der ROM-Inhalt von Adresse #D2H bis Adresse 787H in den Koa- 
munikationsbereich von 78804 bis 78354 übertragen. Dies initialisiert die 
Adressen für die Restart-Vektoren 8, 18, i8 und 28, sodaß von dort ein Sprung 
in die aktuellen ROM-Routinen erfolgen kann. Die Restart-Vektoren 28, 3@ und 38 
werden nit RETurn-Befehlen belegt (keine Funktion). 
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Es werden ferner die "Geräte-Steuer-Blöcke" (Device Control Blocks) fur Tasta- 
tur, Bildschira und Drucker mit Ausgangswerten gefüllt (7815H - 782CH). Der 
Speicherbereich 7836H bis 785CH wird gelöscht (BOH). 


Zur weiteren Initialisierung wird zur Adresse 75H verzweigt. Dort werden fol- 
gende Funktionen ausgeführt: 


Der ROM-Bereich von 18F7H bis 191DH wird in den Kommunika- 
tionsbereich von 78884 bis 78A6H übertragen. In diesem Bereich 
befindet sich u.a. die Hilfsroutine für die Division. Es wer- 
den ferner einige Schalter und Zeiger initialisiert, u.a. die 
Startadresse der Programa-Tabelle bei 7BA4H. 


Der Ein-/Ausgabepuffer ab Adresse 79E8H wird initialisiert, in- 
den seine Anfangsadresse in den Pufferzeiger 7BA7H eingetragen 
und vor den Puffer ein Vorspann von J3AH-BOH-2CH geschrieben 
wird. Dieser Puffer dient u.a. zur Zwischenspeicherung jeder 
ein- und auszugebenden Programszeile. 


Adress-Vektoren für spezielle Diskettenbefehle von Adresse 
T92H bis 79A5H werden mit einem Sprungbefehl zur Adresse B1D2H 
(JP 81D2H) vorbelegt. Dies verursacht bei Ansprung eines dieser 
Vektoren die Fehlermeldung "DISK COMMAND ERROR”. 

Diese Disk-Vektoren sind ein Relikt aus einer früheren Ein- 
satzrechner dieses Betriebssystems und werden vom LASER-Conpu- 
ter nicht benutzt. 


Die RAM-Erweiterungsausgänge 7BAGH bis 79E2H werden mit RETurn 
{CMH) vorbesetzt. 


Adresse 7AEBH (direkt vor dem Freispeicher) wird nit BGH gela- 
den und der Stack-Zeiger wird zunächst mit 79F8H (im Ein- 
/husgabepuffer) initialisiert. Dies geschieht, da nun die Ini- 
tialisierung mit CALL-Aufrufen fortgesetzt wird und dabei ein 
Stack zum Abspeichern der Rücksprungadresse benötigt wird. 


Eine Unterroutine bei 1BSFH (innerhalb der NEW-Kommandarou- 
tine) wird aufgerufen, Dort wird der Stack-Zeiger auf 7B45H um 
gesetzt, eine Adresse is Freispeicher-Bereich. 


Der String-Zwischenspeicher {ab Adresse 78B5H) wird als leer 
gekennzeichnet, inden der Adreßzeiger bei 78B3H auf den ersten 
Eintrag gesetzt wird. 


Als Ausgabegerät wird der Bildschirm gesetzt und, wenn erfor- 
derlich, ein Wagenrucklauf auf einen angeschlossenen Drucker 
ausgegeben. 


Die Indizierungssperre wird zurückgesetzt und das Ende des 
Stack-Bereichs mit 8 gekennzeichnet. 


Der Bildspeicher wird gelöscht ({LS). 


Die Speicherendadresse wird ermittelt und in 78B1H gespei- 
chert. Für den String-Bereich werden 58 Byte am Ende des Frei- 
speichers reserviert und die Anfangsadresse des String- 
Bereichs in 78A@H eingetragen. 


Die Unterroutine 1BADH (NEW) wird aufgerufen. 

Dort wird die TRACE-Funktion und der AUTO-Modus ausgeschaltet, 
Der Anfang der Programs-Tabelle wird nit BOH-BOH initialisiert, 
un diese als leer zu kennzeichnen. 

Der Adreßzeiger auf die Variablen-Tabelle {=Endadresse der Pro- 
grammtabelle) bei 7BF9H wird auf die Anfangsadresse der Pro- 
gramatabelle + 2 gesetzt. Da die Variablen-Tabelle auch noch 
leer ist, werden die Endadressen beider Teile bei 7BFBH und 
78FDH auf den gleichen Wert gesetzt. 

Die TypCode-Tabeille ab 79BiH wird für alle Variablen auf "ein- 
fache Genauigkeit" gesetzt. 

Der Stack-Bereich wird vor dem String-Bereich eingerichtet. 


Im Anschluß daran wird eine Unterroutine bei 3484H aufgerufen. 
Dort wird geprüft {CALL 3AFBH), ob gleichzeitig mit dem Ein- 
schalten die CTRL-Taste gedrückt war {grimer Hintergrund) und 
entsprechend die Hintergrund-Flags 7818H und 7819H gesetzt. 

Zur Erzeugung des richtigen Hintergrunds wird der Bildschirm 
nochmals gelöscht. 


über die Ein-/Ausgabeadressen (S8B0H) wird die Grundeinstellung 
20H gesetzt und auch im Speicher bei 783BH vermerkt. Dies 
bedeutet "Darstellungsfarbe = grün" und "Textmodus". 


Die Grundwerte für den Verzögerungszähler (783AH) und den Blink- 
zähler (7841H) werden gesetzt. 


Als Farbwert wird "gelb" gesetzt (7846H) und der Interrupt- 
Vektor in 787DH auf RETurn (C9H). 
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Jetzt erfolgt endlich die Ausgabe des Vorstelltextes 

"VIDEO TECHNOLOGIE .„..." und es wird der 788 auf Interrupt- 
Modus 1 geschaltet. Das bedeutet, daß bei maskierbaren Inter- 
rupts die Programmadresse 38 angesprungen wird. Ein solcher 
Interrupt erfolgt, wenn Interrupts zugelassen sind (EI), alle 
28 Millisekunden. 


Ab Adresse B68EH findet die letzte Phase der Initialisierung 
statt. Dort wird nacheinander geprüft, ob bei den Adreßberei- 
chen 4000H, &BBBH oder BBROH ein ROM-Kassetteneinschub vorhan- 
den ist (z.B. das DOS ab Adresse 4000H). Ein solcher Kasset- 
teneinschub muß bei den o.a. Adressen mit der Bytefolge AAH-55H- 
E7H-18H beginnen. 

Wird diese Bytefolge bei einer der Adressen eraittelt, so wird 
auf die darauf folgende Adresse verzweigt, ansonsten wird das 
Programs sit der BASIC-Eingaberoutine fortgesetzt. 


Auf diese Art wird u.a. festgestellt, ob ein Diskettensustem 
angeschlossen ist. Die Disketten-Zusatzroutinen sind in ROMs 
in der Diskettensteuerung untergebracht. Die Adressierung be- 
gimt bei Adresse 4000H, wobei die ersten vier Speicherstellen 
mit AAH-SSH-ETH-IGH belegt sind. Ist das Diskettensystem ange- 
schlossen, so wird diese Bytefolge bei 4000H gefunden und das 
Programs zur Initialisierung des D05 ab Adresse 4004H fortge- 
setzt. 


i tine 
Die Eingabe-Routine ist in allen Betriebssystemen ähnlich. Ihre Funktion ist 


die übernahae von Tastatureingaben und das Reagieren auf empfangene Kommandos. 


Is Betriebssystem der LASER-Rechner 118, 218, 31@ und des VZ200 werden so- 
wohl SystemKommandos als auch BASIC Programazeilen von der Eingabe-Routine 
verarbeitet. 


Der Einsprung in die Eingabe-Routine erfolgt bei Adresse 1A19H, auch als Be- 
ginn der BASIC-Hauptschleife oder BASIC-Warastart-Adresse bekannt. 


Es wird dort zunächst die Meldung "READY" ausgegeben und über den RAM-Erwei- 
terungsausgang bei 78ACH gesprungen (initialisiert nit RETurn). 


Die Funktionen der Eingabe-Routine können wie folgt unterteilt werden! 


l. Zeile von der Tastatur einlesen 

2. BASIC-Schlüusselworte in der Zeile durch TOKEN ersetzen 

3. Prüfen, ob ein Direktkommando eingegeben wurde 
{BASIC-Zeile ohne Zeilennumser). 
Wenn ja, weiter bei ó. 

4, Zeile in Programmtabelle übertragen. 

5. zurück zu 1. 

6. Interpretieren und ausführen 


Die Eingabe-Schleife beginnt bei der Adresse 1AS3H. Ist das System im AUTO- 
Modus, wird zunächst die Zeilennummer und, wenn diese bereits im Programm vor- 
handen ist, auch der Zeileninhalt ausgegeben. 


Mit einem CALL zur Routine bei ØZE3H wird eine Zeile von der Tastatur uber- 
nommen und in den Ein-/Ausgabepuffer ab Adresse 79E8H übertragen. Wurde die 
Zeileneingabe mit der BREAK-Taste abgeschlossen, so erfolgt sofort Ruck- 
sprung zum Schleifenanfang (1A33H), d.h. die Zeileneingabe wird ignoriert. 


Eine eingegebene Zeilennummer wird vom ASCII- in das Rinärformat umgewandelt 
(CALL 1E5AH). 


In der Unterroutine ab IBCHH wird die Eingabezeile untersucht und alle darin 
enthaltenen BASIC-Schlüsselworte durch 1-Byte hexadezimale Kenner, die 
"TOKENS", ersetzt. 


Danach erfolgt ein Sprung zum RAM-Erweiterungsausgang bei 79B2H, eine gute Ge- 
` legenheit, wenn man selbst noch die Eingabezeile behandeln möchte (Anschluß 
einer Maschinenroutine). Hier wurde u.a. EXTENDED BASIC zur Erkennung und Um- 
setzung der zusätzlichen Befehle eingehängt. 


Bei 1AA4H wird gepruft, ob eine Zeilennummer eingegeben wurde. Wenn nicht, han- 
delt es sich um ein Direktkommando. In diesen Fall wird sofort zur Inter- 
pretation und Ausfuhrungssteuerung (1D5AH) verzweigt. 


Ist eine Zeilennummer vorhanden, so wird die eingegebene Zeile an der rich- 
- tigen Stelle der Programmtabelle hinzu- oder eingefügt. 


Existiert bereits eine Zeile gleicher Nummer, so wird diese zuvor mit der Rou- 
tine bei 2BE4H gelöscht. 
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Die Endadresse der Programstabelle {78F9H) wird um die Länge der eingegebenen 
Zeile erhöht (iAC2H....) und nit der Routine bei 1955H Platz für die neue Zeile 
geschaffen, indem die dahinter liegenden Zeilen mit höherer Zeilennumser nach 
oben im Speicher verschoben werden. 


Ab 1ADBH beginnt die Vorbereitung und übertragung der Zeile aus dem Ein- 
/Ausgabepuffer in die Programmtabelle. 


Ist die eingegebene Zeile leer, so wird dies bei 1ABFH bemerkt und die über- 
tragungsroutine ubersprungen. 


Die Verweisadressen zur Zeilenverkettung werden im gesamten Program von der 
Routine bei 1AFCH erneuert. 1B5DH in der NEW-Routine wird zum Abschluß noch 
aufgerufen, um die Variablentabelle zu löschen und einige Flags und Kenner zu- 
ruckzusetzen, sodaß nach Einfügen oder Ändern einer Zeile keine Fortführung 
des Programms mit CONT mehr möglich ist. 


Danach erfolgt ein Rücksprung zum Schleifenanfang, um die nächste Zeile einzule- 
sen. 


Der AUTO-Befehl ist nur im EXTENDED BASIC verfügbar, kann aber sit Hilfe eines 
POKE 30945,1 auch im normalen BASIC eingeschaltet werden, wenn man mit den 
Standardwerten (Anfangswert = 18, Schrittweite = 18) zufrieden ist. 


Im AUTO-Modus wird die auszugebende Zeilennumser in Adresse 78E2H/78E3H be- 
reitgestellt und der Erhöhungswert bei 78E4H, 

Das Einlesen der Zeilen im AUTO-Modus erfolgt im Abschnitt 1AIFH bis 1A76H. 
‘Dabei wird zunächst die Zeilennumeer aus 78E2H/78E3H ausgegeben und, wenn die- 
se Zeile bereits vorhanden ist (Suche mit 1B2CH), mit 2ES53H auch der Zei- 
leninhalt. 


Das Einlesen erfolgt auch über B3E3H. Wurde die BREAK-Taste betätigt, so wird 
neben dem Ignorieren einer evtl. Eingabe auch der AUTO-Modus ausgeschaltet. 
Nach dem Einlesen der Zeile (ab 1ASBH) wird die bei 7BE2H/7BEIH gespeicherte 
Zeilennumser um den Wert aus 78E4H erhöht. 


Die weitere Behandlung der Zeile erfolgt, wie bei der Eingabe ohne AUTO, ab 
1ABiN. 


Anmerkung: 

Beim LASER i1@, 210, 3i@ und VZ288 sind eine Reihe von BASIC-Schlusselworten 
nicht kodiert, obwohl die erforderlichen Ausführungsroutinen und TOKEN vor- 
handen sind (siehe Befehlstabelle ab 165@H). Wahrscheinlich ist dies aus urhe- 
berrechtlichen Grunden geschehen. 

Mit EXTENDED BASIC werden einige dieser Befehle und Funktionen, neben vielen 
zusätzlichen, geöffnet und verfügbar gemacht. 


Interpretation und Ausfuhrungssteuerung 


Die Ausführung von Systemkommandos und BASIC-Befehlen erfolgt durch Inter- 
pretation. 


Interpretation bedeutet, daß alle Kommandos und alle BASIC-Zeilen erst zur Aus- 
führungszeit vom Betriebssystem analysiert und die erforderlichen Operationen 
angestoßen werden. 


So ein Verfahren ist auf der Systemkommando-Ebene allgemein üblich. Ein Kom- 
mando wird eingelesen, interpretiert und die entsprechende Ausfuhrungsroutine 
angestoßen. 


Ein Programm mit Hilfe der Interpretation auszuführen ist im allgemeinen auf 
Home- und Personal-Computer beschränkt und dort auch nur für wenige Sprachen, 
wie z.B. BASIC oder L060. 


Die Alternative zur Interpretation ist das vorherige Kompilieren mittels eines 
Compilers. 


Compiler übersetzen den Quell-Code, das sind die Eingabezeilen in der ent- 
sprechenden Sprache (FORTRAN, COBOL, PASCAL, PLI usw.), in direkt ausfuhr- 
baren Maschinencode, Objekt-Code genannt. 


Ein solcher Objekt-Code wird zur Ausführungszeit mit Hilfe eines Laders (Teil 
des Betriebssystems) in den Speicher geladen und gestartet. Nach dem Start 
läuft ein solches Programm fast völlig unabhängig vor Betriebssystem. 


Die LASER-Rechner 118, 218, 318 und der VZ288 arbeiten im BMSIC ausschließ- 
lich sit der Methode der Interpretation. Wollen Sie direkt ausführbaren Ma- 
schinencode verwenden, so mussen Sie sich diesen mit einen Assembler erzeugen 
lassen oder direkt eingeben. 


Das Hauptwerkzeug eines Interpreters ist zunächst der Vergleich. Eine einge- 
gebene Programszeile eines BASIC-Programes wird Zeichen für Zeichen überpruft 
und nach BASIC-Schlüsselworten, wie IF, THEN, FOR, NEXT, GOTO usw. durchsucht. 
Jedes gefundene Schlüsselwort wird durch eine eindeutige hexadezimale Ziffer 
ersetzt, die als TOKEN bezeichnet wird (z.B. (LS = 84H, IF = BFH, GOSUB = 91H, 
CLOAD = BM). Anschließend wird die so behandelte Programmzeile in die Pro- 
gramm-Tabelle übertragen. 


Diese Funktion findet bereits bei der Programseingabe statt und entlastet die 
Ausführungssteuerung von dieser mühevollen und zeitraubenden Arbeit. 


Zum Ausführungszeitpunkt wird wieder Zeile für Zeile von der Ausführungs- 
steuerung adressiert und auf das Vorhandensein dieser TOKEN untersucht. Für 
fast jeden TOKEN besteht im BASIC-Interpreter eine eigene Ausführungsrau- 
tine, die beim Auffinden des entsprechenden TOKEN zur Ausführung der dahin- 
ter verborgenen Funktion aufgerufen wird. 


Diese Routinen zur Befehls- und Komsandoausführung führen dann zunächst eine 
weitere formale (syntaktische) Prüfung durch: 


- stiemt die Anzahl der Parameter? 

- wurden die richtigen Datentypen verwendet? 

- stehen die Komsas an der richtigen Stelle? 

- sind Parameter erforderlichenfalls in Klammern eingeschlossen? 
usw. 


Bei einem Compiler würden diese Funktionen zur Ausführungszeit alle entfal- 
len, da sie bereits während der Kompilierung stattfinden. 


Bein LASER wird die Ausfuhrungssteuerung aufgerufen, wenn eine Kommando- oder 
Programmzeile ohne Zeilennumaer eingegeben wurde oder nachdes ein RUN-Kommando 
erkannt wurde. 


Bei einem RUN-Komsando wird ein vollständiges, in der Programs-Tabelle ge- 
speichertes BASIC-Programs ausgeführt. 


Die Ausführungssteuerung beginnt bei Adresse 1DIEH und endet bei Adresse 
1D77H. Der Einsprung erfolgt bei Adresse 1D5AH. 


Folgende Schritte werden bei Ausführung einer Programazeile durchgeführt: 


1. 


3 


4. 


5. 


7. 


9. 


Anmerkung: 


Erstes Zeichen der aktuellen Zeile aus der Programm- 
Tabelle laden. 

Ist das Ende der Programa-Tabelle erreicht, erfolgt 
Rücksprung zur Eingabe-Routine. 


Ist der Ablaufverfolger eingeschaltet (TRON aktiv), 
so wird zunächst die Zeilennumwer auf dem Bildschirm 
ausgegeben (inn?). 


Ist das Zeichen kein TOKEN, weiter bei 7. 


Ist das Zeichen > ’BBH’, so mug es genau "FAH? (MID$) 
sein, sonst ist es am Zeilenanfang nicht erlaubt und es 
wird SYNTAX ERROR erzeugt. 


Ist das Zeichen kleiner ’BCH’, so wird es als Index fur 
eine Sprungtabelle der Ausführungsroutinen genutzt. 


Die entsprechende Ausführungsroutine wird aufgerufen und 
nach Ausführung derselben zu f. zurückgesprungen. 


Ist das Zeichen kein TOKEN, muß es sich um eine Wertzu- 
weisung handeln. 

Die angegebene Variable wird eraittelt, wenn nicht vor- 
handen, wird sie neu in die Variablen-Tabelle aufgenommen, 


Der Wertausdruck wird analysiert und der Wert der Variablen 
zugeordnet. 


Zuruck zu 1. 


Beim LASER sind die Befehle TRON und TRÖFF nur im EXTENDED BASIC verfügbar. 
Sie können diese jedoch im normalen BASIC durch POKE-Befehle ersetzen. 


POKE 31803,1 = TRON 
POKE 31083,0 = TROFF 


Die Ausfuhrungsroutine beginnt also mit dem Laden des ersten Zeichens der zu 
bearbeitenden Zeile. 


Es wird anschließend die Adresse iDIEH auf den Stack gepackt. Das ist die 
Adresse, an die alle Ausführungsroutinen nach erfolgreichen Abschluß ihrer Ope- 
rationen zurückkehren sollen. 


Ist das gelesene Zeichen kein TOKEN (< B@H), so sollte es eine Wertzuweisung 
sein, Z.B. B=5. 


Die Routine zur Durchführung von Wertzuweisungen beginnt bei IF21H. Das ist die 
gleiche Adresse, bei der man landet, wenn vor der Zuweisung das TOKEN 8CH für 
LET gestanden hätte. Aus diesem Grunde kann man auch das LET weglassen. 


Die Zuwöeisungsroutine erwartet, daß der Adreßzeiger auf die zu bearbeitende 
Zeile direkt vor dem Variablen-Namen steht. Es wird die Variablen-Tabelle auf 
einen Eintrag gleichen Namens durchsucht, wenn nicht vorhanden, wird der Nane 
neu in die Tabelle aufgenommen. Hinter dem Variablen-Nasen muß sich ein Gleich- 
heitszeichen befinden und danach der Wertausdruck. Der Wertausdruck wird in der 
Routine ab 2337H analysiert. Der ermittelte Wert wird anschliessend in den 
richtigen Typ der angegebenen Variablen umgewandelt und an der Variablenadresse 
gespeichert. 


Wird am Anfang der Zeile ein TOKEN festgestellt, so wird geprüft, ob es ein 
gültiges TOKEN ist. Gültig sind am Anfang einer Anweisung nur die TOKEN 90H bis 
BBH. Die TOKEN BCH bis F9H können nur als Teil einer Wertzuweisung oder einer 
Befehlsfolge benutzt werden. 


Beispiel: 8FH (IF) ’ausdruck’ CAH {THEN) xxxx 


Das THEN-TOKEN darf nicht am Anfang einer Zeile 
stehen, sondern nur nach einer IF-Anweisung. 


Einzige Ausnahme dazu ist das MID$-TOKEN ’FAH’, das aber beim LASER auch nicht 
so ohne weiteres verwendet werden kann, da es einen der unbenutzten RAM-Erwei- 
terungsausgänge im Komaunikationsbereich benutzt. Hier lassen sich jedoch ge- 
schickt neue, selbst gemachte BASIC-Befehle an den Interpreter anschließen, 
2.B. ein SORT o.ä.. 


Ein TOKEN zwischen 8@H und BEH wird als Index in die Sprungtabelle ab Adresse 
18224 benutzt, in der für jede gültige Anweisung die Anfangsadresse der Aus- 
fuhrungsroutine gespeichert ist, Das Programm wird danm an der dort ent- 
nommenen Adresse fortgesetzt. 


Die hinter den TOKEN befindlichen Werte bis zum Anweisungsende sind die fur die 
jeweilige Ausführungsroutine erforderlichen Parameter. Jede Ausführungsroutine 
kennt die zu erwartenden Parameter und pruft diese auf Vollständigkeit und kor- 
rektes Format. Das Ende der Parameter eines Befehls muß auch mit dem Ende der 
Anweisung übereinstimmen. 


Nach Abschluß einer Ausfuhrungsroutine wird die Kontrolle wieder der Ausfüh- 
rungssteuerung übergeben {1DIEH). Dort wird zunächst geprüft, ob das Ende der 
Anweisung erreicht ist. Das Ende einer Anweisung ist entweder eine lei- 
lenendekennung BOH oder ein Anweisungstrenner ’:’. Rei Erreichen eines Anwei- 
sungstrenners wird die darauf folgende Anweisung in derselben Zeile auf die 
gleiche Art interpretiert und ausgeführt. 


Bei Erreichen des Zeilenendes wird die nächste Zeile in der Programa-Tabelle 
adressiert und der Ausfuhrungssteuerung übergeben. 


Bei einem System-Kommando oder einen Direktbefehl gibt es jedoch keine 
“nächste” Zeile, diese Anweisungen werden auch nicht aus der Programm-Tabel- 
le heraus, sondern direkt aus dem Ein-/Ausgabepuffer ausgeführt. Dort ist am 
Ende des Puffers ein Programmende BOH-BBH simuliert. Zusätzliche wird noch zur 
Kennung einer solchen Anweisung eine Zeilennummer von FFH-FFH oder 65535 
eingespielt. 


Mit den RUN-Befehl wird der Ausführungssteuerung mitgeteilt, daß sie ihre An- 
weisungen aus der Programs-Tabelle zu entnehmen hat. 


Bei Erreichen des Endes eines BASIC-Programms, sei es mit oder ohne END- 
Anweisung, wird über die END-Ausführungsroutine zur Eingaberoutine zuruckge- 
Sprungen. 


Ein Fehler, der während der Ausführung festgestellt wird, verursacht die Ausga- 
be einer entsprechenden Fehlermeldung und ebenfalls die Rückkehr zur Eingabe- 
Routine. 


ie Ausfu tinen 


In den Ausführungsroutinen werden die eigentlichen Funktionen der einzelnen 
Befehle ausgeführt. Für jedes System-Kommando (CLOAD, CSAVE, CLEAR, RUN usw.) 
und für jeden BASIC-Befehl (FOR; IF, GOSUB, GOTO usw.) existiert eine gesonder- 
te Ausführungsroutine. Zusätzlich sind Ausführungsroutinen fúr alle mathemati- 
schen Funktionen, wie SIN, COS, ATN, LOG usw. vorhanden. 
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Diese Ausführungsroutinen analysieren die Anweisung von der Stelle aus wei- 
ter, an der die Ausführungsteuerung ein TOKEN entdeckt hat. Die Anweisung wird 
von links nach rechts nach speziellen Zeichen, wie Kommas oder Klammern oder 
TOKEN untersucht. Jede Anweisung hat ihren speziellen Parameteraufbau, sodaß 
hier zunächst eine weitere formelle Prüfung stattfindet. 


Die Ausführungsrautinen erfüllen in vielen Fällen auch wieder Steuerfunktio- 
nen, indem sie zur Erfüllung ihrer Funktion eine ganze Reihe interner Unter- 
routinen aufrufen, die sie sich mit anderen Ausführungsroutinen teilen. 


Ein gutes Beispiel für eine solche interne Unterrautine ist die Ausdrucks- 
analyse bei 2337H. Diese Routine wird von allen Ausfuhrungsroutinen aufgeru- 
fen, die Ausdrücke in ihren Parametern zulassen. Beispiele solcher Ausfüh- 
rungsroutinen sind die zur Bearbeitung von IF, FOR und PRINT. 


Die Ausdrucksanalyse ruft weitere interne Unterroutinen auf, so z.B. 260DH um 
Variable innerhalb eines Ausdrucks zu bearbeiten. Da es auch indizierte Variab- 
le gibt, die als Indizierung wiederum einen Ausdruck zulassen, muß diese Rauti- 
ne ggf. wieder die Unterroutine zur Ausdrucksanalyse aufrufen, von der sie sel- 
ber gerade aufgerufen wurde. 50 etwas bezeichnet man als Rekursion. 


Ein Beispiel für eine Wertzuweisung, die eine solche Rekursion hervorruft: 
ST = EiBC/CDI3,F))/DIDE-1) 
Andere interne Unterroutinen sind : 


- Vorsetzen ans Anweisungsende {1FB5H) 

~ einen FOR- oder GOSUB-Datenblock auf dem Stack suchen (19344) 
- einen Eintrag in den String-Zwischenspeicher schreiben (2845H) 
und viele andere mehr. 


Zuischenresultate werden in der Regel in einem Arbeitsbereich des Koaaunika- 
tionsbereichs (X-Register = 791DH) abgelegt. 


Alle Ausführungsroutinen (außer MID$) werden mit folgenden Registerinhalten 
angesprungen! 
A - das auf das TOKEN folgende Zeichen 

Flags - CARRY = numerisch 
ZERO = Anweisungsende ’:’ oder Zeilenende X’89’ 
BC Anfangsadresse der Ausführungsroutine 
DE - Adresse des Sprungstabelleneintrags + 1 für das TOKEN 
HL - Adresse des in A stehenden Zeichens in der Anweisung 
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Eine Tabelle aller Systemkommandos und BASIC-Befehle mit der Adresse ihrer Aus- 
führungsroutinen ist is Kapitel 9 enthalten. 


Arithmetische und mathematische Funktionen 


Zunächst einige Betrachtungen der rechnerischen Fähigkeiten des 788 und des 
BASIC-Interpreters. 


Der 780 unterstützt intern nur 8 Bit- und 16 Bit- Additionen und Subtraktio- 
nen. Er führt keine Multiplikationen oder Divisionen durch und erst recht kei- 
ne Fließkomaa-Arithmetik. 


Der Registersatz des 288 zur Durchführung der Arithmetik besteht aus sieben 
16-Bit Registerpaaren (AF, BC, DE, HL, IX, IY, SP}, hinzu kommen vier Schat- 
tenregisterpaare (AF’, BC’, DE’, HL’), die allerdings nur zur Zwischenspei- 
cherung verwendet werden können. 


Alle arithmetischen Operationen mussen grundsätzlich zwischen diesen Registern 
stattfinden. Register-Speicher Operationen sind nur in wenigen Ausnahmefällen 
über indirekte Adressierung möglich. 

Die Operationen der Register untereinander sind auch beschränkt. Vor allen in 


der 16-Bit Arithmetik sind nur ganz bestimmte Registerkonstellationen zulässig. 


Der BASIC - Interpreter unterstützt alle arithmetischen Operationen, sei es 


Addition, Subtraktion, Multiplikation oder Division und dies für drei ver- 


schiedene Typen von Variablen! 


- Ganzzahlige Variable (Integer) 
- Variable einfacher Genauigkeit (single precision) 
- Variable doppelter Genauigkeit (double precision) 


Dies wird erreicht durch interne Unterroutinen, die die fehlenden Hardware- 
fähigkeiten des Z88 per Software ersetzen. 


Durch wie Komplexität der Software bedingt werden allerdings keine Misch- 
operationen unterstützt, d.h. es können immer nur Variable gleichen Typs mit- 
einander verknüpft werden. Die Verwendung ungleicher Variablentypen in einer 
Operation würde zu unvorhersehbaren Ergebnissen führen, sie hätten damit eine 
neue Art von Zufallsgenerator geschaffen. 
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Die drei Variablentypen, die der BASIC-Interpreter unterstützt, haben fol- 
gendes Format: 


Ganzzahlige Variable: 16 Bits (1 Bit Vorzeichen, 15 Bits Daten) 


Variable einfacher 32 Bits (8 Bits Exponent, 24 Bits Mantisse 
Genauigkeit! mit Vorzeichen) 
Variable doppelter 56 Bits (8 Rits Exponent, 48 Bits Mantisse 
Genauigkeit: ait Vorzeichen) 


Hieraus wird ersichtlich, daß die Hardware-Register nicht ausreichen, um zwei 
Variable einfacher oder doppelter Genauigkeit aufzunehmen, geschweige denn zu 
verarbeiten. 


Aus diesen Grunde wurden im Kommunikationsbereich zwei Arbeitsbereiche ein- 
gerichet, die als Zwischen- und Arbeitsspeicher (Registerersatz) benutzt 
werden. 


Dies sind der Arbeitsbereich I (als X-Register bezeichnet), der den Bereich 
79DH bis 7924H belegt und der Arbeitsbereich 2 (Y-Register), der sich von 
7927H bis 792ẸH erstreckt. 

Diese beiden Arbeitsbereiche haben folgendes Format: 


Adresse Ganzzahlig Einfache Doppelte 
Genauigkeit Genauigkeit 


791D = = LSB 
711E er > NSB 
791F a = NSB 
7928 => = NSB 
7921 LSB LSB NSB 
7922 MSB NSB NSB 
7923 Sa MSB MSB 
7924 = EXP EXP 


(Die Adressen beziehen sich auf Arbeitsbereich i; Arbeitsbereich 2 ist jedoch 
gleich strukturiert) 


LSB = niederwertigstes Byte (least significant byte) 
NSB = nächst höherwertiges Byte (next significant byte) 
MSB = höchstwertigstes Byte (most significant byte) 
EXP = Exponent 
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Die verschiedenen arithmetischen Operationen für die drei Variablentypen haben 
folgende Register-/Arbeitsbereichszuor.dnung: 


Ganzzahlige Variable 


1.Öperand 2.0perand Operation Ergebnis Ausf.routine 
HL + DE Addition HL BED2H 
HL = DE Subtraktion HL BRC7H 
HL * DE Multiplikation HL BBFZH 
DE / HL Division ARBI 2490H 


Variable einfacher Genauigkeit 


1.üöperand 2.0perand Operation Ergebnis Ausf.routine 
ARBI + BCDE Addition ARBI 0716H 
ARBI - BCDE Subtraktion ARBI 0713H 
ARBI * BCDE Multiplikation ARBI 0847H 
ARBI 7 RCDE Division ARBI BBA2H 


Die beiden Registerpaare BC und DE werden bei Operationen einfacher Genauig- 
keit zur Aufnahme des 2. Operanden benutzt. 


Variable doppelter Genauigkeit 


1.0perand 2.0perand Operation Ergebnis Ausf. routine 
ARBI + ARB2 Addition ARBI BC7H 
ARBI - ARBZ Subtraktion ARBI BC7EH 
ARBI * ARB? Multiplikation ARBI BDAIH 
ARBI / ARB2 Division ARBI BDESH 


Da gemischte Operationen nicht zugelassen sind, können ganzzahlige Werte nur 
mit anderen ganzzahligen Werten verarbeitet werden. Dasselbe gilt naturlich 
für Werte einfacher oder doppelter Genauigkeit. 


Da für jeden Typ vier verschiedene arithmetische Operationen möglich sind (+ 
- # /) und es drei verschiedene Datentypen gibt, existieren somit auch zwölf 
verschiedene arithmetische Routinen. Hinzu kommen 3 Routinen für typabhängige 
arithmetische Vergleichsoperationen. 
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Eine Adreßtabelle der 15 Routinen ist im ROM ab Adresse 18ABH enthalten. 


Jede dieser Routinen kennt den Typ der zu verarbeitenden Werte und erwartet, 
daß diese in den richtigen Registern bzw. Bereichen bereitstehen. 


Das trifft aber nicht für die mathematischen Routinen zu, da diese nur mit ei- 
nem Eingangswert arbeiten, der immer im Arbeitsbereich 1 (X-Register) be- 
reitgestellt werden muĝ. 


Fur die mathematischen Routinen ergibt sich jetzt ein Problem. Sie müssen in- 
tern arithmetische Operationen aufrufen, können im Arbeitsbereich t aber nicht 
den Typ des dort bereitgestellten Arguments erkennen. Aus diesem Grunde wurde 
in Kommunikationsbereich ein weiteres Byte belegt {T8AFH), das Auskunft über 
den Typ des im Arbeitsbereich i gespeicherten Wertes gibt. Diese Byte wird auch 
als Typ-Flag bezeichnet. 


Es wird dort einer der vier folgenden Codes eingetragen! 


Code Daten-Typ 
22 Ganzzahlig 
83 Textvariable 
24 einfache Genauigkeit 
2 doppelte Genauigkeit 


Der Typ-Code entspricht genau der Länge des im Arbeitsbereich 1 für den spe- 
zifischen Datentyp gespeicherten Wertes. 


Die mathematischen Routinen lassen, bis auf wenige Ausnahmen, alle verschie- 
denen Datentypen zu (siehe detaillierte Beschreibung der Routinen). 


Interne Darstellung der Daten 


Zum besseren Verständnis des zuvor gesagten soll hier erläutert werden, wie die 
Daten im LASER intern eigentlich dargestellt werden. 


Ganzzahlige Variable werden in 16 Bits dargestellt, wobei Bit 15 das Vorzei- 
chen und die Bits @ - 14 den Wert enthalten. Der dadurch größte darstellbare 
positive Wert ist 32767 (dezimal) oder 7FFF (hexadezinmal). Der kleinste dar- 
stellbare negative Wert ist -32768 (dezimal) oder 8008 {hexadezinal). 


Bit ==>} 15 1413121118 987655432108 
Lam nn 1 an a ba a a a u a a en a tt 
l m a ae e ae ana me oe ae ma ame e e 
| i 
Vorzeichen Wert 
8 = positiv 
t = negativ 


Positive Werte: BOBO - 7FFF (hex) 
Negative Werte: FFFF - 8008 (hex) 


0 - 32767 (dez) 
-1 - -32768 (dez) 


Beachten Sie, daß negative Werte in ihrem ler Komplement dargestellt werden. 
Fließkomsa-Variable werden vom BASIC in zwei verschiedenen Typen verarbei- 
tet: 


- Variable einfacher Genauigkeit 
- Variable doppelter Genauigkeit 


Bei Typen haben einen acht Byte langen Exponenten mit Vorzeichen. 
Bei Variablen einfacher Genauigkeit hat die Mantisse eine Länge von 24 Byte 
mit Vorzeichen und bei Variablen doppelter Genauigkeit eine Länge von 56 Byte 


sit Vorzeichen. 


Beide Typen haben das gleiche Format, sie unterscheiden sich nur in der Man- 
tissenlänge. 





Bit => 3 24 23 6 55 8 7 8 

raal I ih en be! 

t mmmn | mmmn mamm a maam aman am ama e aa maama aa a eaaa a 

! k i ! 
Vorzeichen I Vorzeichen der Wert der Mantisse, linksbundig 
des Exponenten !  Mantisse (normalisiert), d.h. das 
i = positiv t! = positiv höchstwertigste Bit ist in Bit- 
(das Komma muß t f = negativ position 23. 
nach rechts) ! Negative Werte werden wie posi- 
B = negativ Wert des Exponenten tive dargestellt, mit dem ein- 
(das Komma auf = Anzahl Stellen, um zigen Unterschied, daß das Bit 
nach links) die das Komma zu ver- 23 gesetzt ist. 


schieben ist. 


Typ = einfache auigkeit 
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Die Zahlendarstellung erfolgt in der Form 
Zahl = Mantisse + 2 EXP mit 9,5 <= Mantisse < 1 


Die Mantisse ist 24 oder 56 Bit lang, wobei das erste Bit nicht mit abge- 
speichert wird, da es immer i ist. An seine Stelle wird das Vorzeichen der Man- 
tisse gesetzt. 


Der Exponent wird immer mit einem Offset von 128 (= 8@H) abgespeichert, da- 
raus ergibt sich das Vorzeichen des Exponenten in der höchstwertigen Bitpo- 
sition. 


0.5+20 ==> Exp = 88, M = OB DR 00 
-0.54253 ==) Exp = 89, M = 89 BR MO 
-0,5 +27! ==) Exp = 7F, N = 80 08 00 


Beispiele: 8.5 
-4 
-8.25 


Die größte Zahl, die mit all ihren Stellen in einfacher Genauigkeit darge- 
stellt werden kann, ist 22%-1 oder 8388407 (dez.) oder TFFFFF (hex.). Bei dop- 
pelter Genauigkeit mit der größeren Mantisse beträgt die größte genau darstell- 
bare Zahl 256-1 oder 3,578#1Bl6 (dez.) oder TFFFFFFFFFFFFF (hex). 


Diese Werte, 8388697 oder 3,578#1816, stellen jedoch nicht den größten Wert 
dar, nit dem gerechnet werden kann, sondern nur den größten, der ohne Verlust 
an Genauigkeit darstellbar ist. Das liegt daran, daß der Exponent für beide 
Typen Werte zwischen 2 "128 und 2 127 annehmen kann. Theoretisch kann also das 
Kosma {in binärer Darstellung) 127 Stellen nach rechts oder 128 Stellen nach 
links geschoben werden, obwohl nur 24 bzw. 56 Bits in der Mantisse stehen. 


Abhängig von der Art der Daten und der Berechnung ist das auch meist ausrei- 
chend. Entscheidend ist allein die Anzahl der gültigen Ziffern eines Wertes. 


Anmerkung: 

Beim LASER 118, 210, 318 und dem VZ200 läßt sich nicht so ohne weiteres ait 
Variablen doppelter Genauigkeit arbeiten. In der Grundversion des BASIC- 
Interpreters können Sie nur zwischen Variablen einfacher Genauigkeit und ganz- 
zahligen Variablen (Integer) wählen. 


- Variablennamen ohne Zusatz = einfache Genauigkeit - 
- Variablennanen mit Zusatz ’%’ = ganzzahlige Variable - 


Es gibt jedoch einen kleinen Trick, indem Sie sich durch einen POKE XXXX;B in 


der Typtabelle des Komaunikationsbereichs {ab 7901H) ganz bestimmte Vari- 
ablennamen zu doppelter Genauigkeit definieren. 
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Ein-/Ausgabetreiber 


Treiber haben die Aufgabe, eine Schnittstelle zwischen dem logischen Anlie- 
gen einer Anwendung {eines Programms) und den physikalischen Gegebenheiten 
eines speziellen Ein-/Ausgabegerätes herzustellen. 


Dazu ein Beispiel! 

Ein Programm möchte ein ganz bestimmtes Zeichen, z.B. den Buchstaben ’A’, auf 
die Kassette ausgeben. 

Dieses Zeichen wird im ASCII-Code ir A-Register des Z88 bereitgestellt und der 
Treiber aufgerufen. 

Der Treiber übernimmt das Zeichen und überträgt es Bit für Bit seriell in der 
durch das Aufzeichnungsverfahren festgelegten Pulsfolge auf den Kassettenaus- 
gang {Bit 1,2 der Adresse 6880H). 


Ia LASER-Computer sind Treiber für die Tastatur, den Bildschirm, einen pa- 
rallelen Drucker und die Kassette vorhanden. 


Tastatur- und Druckertreiber werden über einen speziellen Geräte-Steuerblock 
{Device Control Block = DCB) bei 7815H bzw. 7825H angesprochen. Für den Bild- 
schire existiert auch noch ein Rumpf-DCB bei 78iDH, wird aber vom LASER, außer 
der Cursor-Verwaltung, nicht genutzt. 


In den DCBs werden Zähler und Zeiger für das spezielle Gerät gehalten, so z.B. 
Papiermaß und Zeilenzähler beim Drucker oder die Cursorposition für den Bild- 
schira. Ferner sind dort die Treiberadressen zu finden. 


Die DCBs werden bei der Systeminitialisierung im Kommunikationsbereich ein- 
gerichtet und nit Standardwerten gefüllt. 


Ein Treiber wird für jedes zu übertragende Zeichen aufgerufen. Treiber ken- 
nen keine Datensätze oder Dateien, sie können nicht Zeichen blocken oder ent- 
biocken. Solche Funktionen sind vom aufrufenden Programms selbst durchzuführen. 
Is BASIC-Interpreter machen das z.B. die Routinen für PRINT und INPUT. 


Bein Schreiben auf die Kassette erzeugt das PRINT-Komsando zunächst einen Vor- 
spann von 255 + SOH und 5 * FEH, den Datenkenner F2H und den Dateinamen. Danach 
wird jede Variable als ASCII-String übertragen. Komsas trennen die einzelnen 
Variablen und ein Wagenrücklauf-Zeichen (CR) schließt die übertragung ab. 


Ein INPUT-Kossando sucht zuerst den Vorspann, prüft Datenkenner und Dateina- 


wen. Alle Variablen werden danach hintereinander in den Ein-/Ausgabepuffer 
übertragen, bis ein Wagenrücklauf-Zeichen (CR = BDH) entdeckt wird. 


-49 - 


Anschließend wird jede einzelne Variable wieder in das korrekte Format uage- 
wandelt und in die Variablentabelle übertragen. 


Der Tastatur-Treiber beginnt bei Adresse 2EF4H und erstreckt sich bis zur 
Adresse J3B14H, einschließlich einer ECHO-Routine, die die eingegebenen Zei- 
chen direkt auf dem Bildschirm darstellt. Hinzu kommt noch eine Routine ab 
0507H, die die Betätigung mehrerer Tasten gleichzeitig, das sogenannte 
’ROLLOVER’, behandelt. 


Der Tastatur-Treiber kann direkt über den Geräte-Steuerblock (DCB) mit CALL ?BH 
aufgerufen werden, wenn ein einzelnes Zeichen von der Tastatur abgeholt werden 
soll. Das macht z.B. die Routine des BASIC-Befehls INKEY$. Bei dieser Art der 
Abfrage wird allerdings keine ECHO-Ausgabe auf den Bildschirm durchgeführt, 


Integriert ist die Tastaturabfrage jedoch auch in der Interrupt-Service-Rou- 
tine {siehe Bildschirm-Treiber Beschreibung). Diese Abfrageart wird vor al- 
lem dann benutzt, wenn eine ganze Zeile über den Bildschirm-Editor bei 3E3H 
eingelesen werden und der eingegebene Text auf dem Bildschirm geechad werden 
soll. 


Der Bildschirm-Treiber erstreckt sich von 3039H bis 342FH und besteht aus ver- 
schiedenen Unterroutinen. 





Hierbei ist eine besondere Problematik zu beachten. Auf den VIDEO-RAM wird von 
zwei verschiedenen Bausteinen zugegriffen. Zum einen tastet der Bildgenerator 
ständig den VIDEO-RAM ab und überträgt die dort enthaltenen Zeichen auf den 
Bildschirm, zum anderen muß vom 288 die darzustellende Information in den 
VIDEO-RAM geschrieben werden. Geschieht dies unsynchronisiert nebeneinander, 
so erhalten Sie einen unschönen flackernden Bildschirm. 


Dem wird abgeholfen, indem Ausgaben auf den VIDEO-RAM nur in der Durkelphase 
des Bildschirms erfolgen. Gesteuert und synchronisiert wird dieser Vorgang 
über das vertikale Synchronisations-Signal des Bildgenerators, Dieses wird 
dazu benutzt, einen Interrupt zu erzeugen. Bildschirmausgaben werden zu- 
nächst in einen speziellen Puffer ab 7AAFH zwischengespeichert und erst in der 
Interrupt-Service-Routine, d.h. während der Dunkelphase des Bildschirms ins 
VIDEO-RAM übertragen. 


Die Interrupt-Service-Routine befindet sich bei 2EBSH. Sie führt neben der zu- 


vor beschriebenen gepufferten Bildschirmausgabe (über 3FTBH zu ZQEBH) zu- 
sätzlich noch 
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- die blinkende Cursordarstellung (ZEDCH), 

- die Tastaturabfrage (ZEFDH) und 

- die ECHÖ-Ausgabe auf den Bildschirm (3@1BH) mit 
einem Piep-Ton (3438H) 


aus. 


Der Interrupt erfolgt beim PAL-System alle 20 Millisekunden. Vor Ausführung 
der o.a. Funktionen wird über den RAM-Erweiterungsausgang 787DH gesprungen, 
eine gute Gelegenheit, selbst mit dem Interrupt zu arbeiten, z.B. um eine Soft- 
wareuhr zu implementieren. 


Zur Verwaltung des Bildschirms befindet sich am Ende des BASIC-Kommunika- 
tionsbereiches {ab Adresse 7AD7H) eine Tabelle, die in 16 1-Byte Einträgen Aus- 
kunft über den Status jeder einzelnen Zeile gibt. 


89H - Zeile ist eine Einzelzeile von 32 Zeichen 
8iH - Zeile ist erste einer Doppelzeile von 64 Zeichen 
OOH - Zeile ist zweite einer Doppelzeile 


Diese Tabelle in Verbindung ait zwei Status-Flags bei 7838H und 7839H sind 
Grundlage des BildschirmEditors bei @3E3H. 


Der Drucker-Treiber beginnt bei Adresse B58DH und setzt sich bei J3ABSH fort. 
Dies ist der Ablauf, wenn ein normales ASCII-Zeichen ausgegeben werden soll und 
der Treiber über den DER aufgerufen wird. 


Eine besondere Art der Ausgabe ist der COPY-Befehl (ab 39124), mit dessen Hil- 
fe der Bildschirsinhalt komplett ausgedruckt wird. Haben Sie einen Drucker der 
Marke "Seikosha GPiB@", oder ähnlich, angeschlossen, so können auch invertierte 
Zeichen (\msetztabelle ab 39B4H), Blockgrafik und sogar Bilder der hochauflö- 
senden Grafik ausgedruckt werden, wobei die Farben durch unterschiedliche Grau- 
töne ersetzt werden. 


Ein ’Seikosha 6PI®®’ kompatibler Drucker muß dazu folgende Bedingungen erful- 
len: 


- Unschaltcode Text => Grafik = BBH 


- Umschaltcode Grafik => Text = BFH 
- Einzelnadelansteuerung für 7 Nadeln 
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Der Kassetten-Treiber erstreckt sich von 34A9H bis 389CH und besteht aus vie- 
len einzelnen Routinen, die abhängig davon, ob eine Kassetteneingabe oder -aus- 
gabe erfolgt, aufgerufen werden. 


Die Kassettenaufzeichnungen haben folgendes Format: 


1. BASIC- und Maschinenprogramme 


255 x 80H 
5 x FEH 
1 Byte 


max 15 Byte 
20H 

2 Byte 

2 Byte 

n Byte 

2 Byte 

20 x BBH 


2. Daten-Dateien 


255 x 80H 
5 x FEH 
82H 

max 15 Byte 
BOH 

n Bute 

BDH 


- Synchronisations-Bytes 


- Programmkennung OB = BASIC-Programm 


81 = Maschinenprogramm 


- Programmnane 

- Endekennung fur Namensfeld 
- Program-Startadresse 

= Programs-Endeadresse + 1 

u Programtext 

- Prüf summe 

2 Endekennung 


(aus BASIC-Programmen ait PRINT#) 
- Sunchronisations-Bytes 


= Kennung fur eine Daten-Datei 

= Dateiname 

- Endekennung fur Namensfeld 

- String-Variable, durch Komma getrennt 
* Endekennung (Carriage Return) 


Die Kassettenaufzeichnung erfolgt bitseriell in der folgenden Signalfora: 


Bit = 9 


Bit = 1 





: 555 us : 555 us : 555 us : 
Sync-Puls 





: 555 us £ 555 us :! 555 us 
Sync-Puls 
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Zunächst wird ein Syunchronisationspuls von 555 Mikrosekunden Dauer ausgegeben. 
Bei einer binären Null folgt ein langer Puls von insgesamt 1118 Mikrosekunden, 
bei einer binären Eins folgen zwei Pulse von je 555 Mikrosekunden. Das ergibt 
eine Gesartpulslänge fur eine Bitaufzeichnung von 1665 Mikrosekunden und ent- 
spricht einer Aufzeichnungsrate von 600 Bit/Sek. (Baud). 


Die von der Kassetten-Treiberroutine erzeugten Meldungen in der letzten Bild- 
schirazeile können bei Bedarf unterdrückt werden. Sie können dies über die 
Adresse 784CH bewerkstelligen. 


T8ACH 


= Meldungen werden ausgegeben 
TBACH > 


8 
8 Meldungen werden unterdrückt. 
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9, Adressen und Tabellen des BASIC-Interpreters 








BBBOH => ---------——---- —— 
l Internes ! 
t Betriebssystem ! 
i (ROM) ! 
ABBOH => -—---- re 
À frei oder { 
t belegt durch DOS ! 
GBBBH => --—---------- == 
! frei ! 
bBBOH =) -—----—- 
! Ein-/Ausgabebereich:! 
7008H => --—---- 
! Bildschirm- ! 
i speicher ! 
TRBEH => --— 
i BASIC ! 
! Kommunikationsber. ! 
(TBAAHI=> ~-eemaaaammmmmaemamme 
I Programatabelle ! 
t (PST?) ' 
(78F9H)=) nn 
Wariablentabelle-VLT! 
! einfache Variable ! 
(TBFBHI=> — 
!indizierte Variable ! 
(78FDH)=> —— 
1 ! 
! Freispeicher ' 
t t 
(BER -eaea 
! BASIC - Stack ! 


(TE en 
t String - Bereich ! 
{(78B1H)=) ——— 


nnnn = absolute Lage des Bereichs im Speicher 
(nnnn) = Adreßzeiger in Komeunikationsbereich 
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Interne Tabellen 


Als ’Interne Tabellen’ werden die Listen und Tabellen bezeichnet, die sich fest 
im ROM des Betriebssystens befinden. Das bedeutet gleichzeitig, daß Inhalt und 
Lage dieser Tabellen fest sind. Sie werden vom BASIC-Interpreter zur syntakti- 
schen Prüfung, zur Ausdrucksanalyse, zur Datenumwandlung und zur Ausführung 
bestimmter Befehle (z.B. FOR, IF) benutzt. 


BASIC-Schlusselworttabelle (1650H - 1821H) 


Diese Tabelle enthält alle reservierten Worte und Zeichen des BASIC-Inter- 
preters, seien es Anweisungen oder Funktionen. 


er Eintrag enthält ein Wort, wobei im ersten Zeichen des Eintrags das Bit 
2' = 1 ist, 


Während der Eingabe-Phase wird eine eingelesene Zeile Zeichen für Zeichen mit 
dieser Tabelle verglichen. Stismt ein Textabschnitt der Zeile mit einem Eintrag 
überein, so wird er durch das sogenannte TOKEN ersetzt. Ein TOKEN ist ein 
1-Byte hexadezimaler Wert, der aus der lfd. Eintragsnummer des gefundenen Ein- 
trags gebildet wird. Zusätzlich wird Bit 27 gesetzt. 


Beispiel: 

(LS ist der 5. Eintrag in der Tabelle. 

Da mit O begonnen wird zu zählen, ergibt das eine Eintragsnummer von 4. 

Wird Bit 27 eingeschaltet, so ergibt sich ein TOKEN von 84H für CLS. 

D.h. jede Zeichenfolge (LS im Programmtext wird durch 84H ersetzt, wobei die 
Zeilenlänge entsprechend um 2 Byte verkürzt wird. 


Wenn Sie die Tabelle untersuchen, so werden Sie feststellen, daß eine ganze 
Reihe von Schlüsselworten nicht kodiert ist, sondern aus binären Nullen be- 
steht. Diese sind in der nachstehend aufgeführten Liste in Klammern einge- 
schlossen und mit einem Stern gekennzeichnet. Soweit es sich nicht um 
D05-Befehle handelt, sind Jedoch die Ausführungsroutinen größtenteils 
vorhanden. 


M.E. ist der Grund im Urheberrecht zu suchen, um eine zu große Ähnlichkeit nit 
einen anderen Rechner zu vermeiden. Mit EXTENDED BASIC werden viele dieser 
Befehle wieder für den Nutzer verfügbar gemacht. 


Schlüsselwort TOKEN 


FOR 
RESET 
SET 

cLE 
(CMD) 
(RANDOM) 
NEXT 
DATA 
INPUT 
DIM 
READ 
LET 
G0T0 
RUN 

IF 
RESTORE 
G0SUB 
RETURN 
REM 
STOP 
ELSE 
COPY 
COLOR 
VERIFY 
(DEF INT) 
(DEFSNG) 
. (DEFDBL) 
CRUN 
MODE 
SOUND 
{RESUME ) 
OUT 

(0N) 
(OPEN) 
(FIELD) 
(GET) 
{PUT) 
(CLOSE) 
(LOAD) 


i 
x 


BCH 


#38 


FH 


93H 
94H 
95H 


IM 
98H 
IM + 
QAH # 
9BH * 


9DH 


9FH # 


AIH # 
A2H * 
AH * 
AH * 
ASH * 
AbH * 
ATH * 


Schlüsselwort TOKEN 


(SAVE) 
{SYSTEM) 
LPRINT 
(DEF) 
POKE 
PRINT 
CONT 
LIST 
LLIST 
(DELETE) 
(AUTO) 
CLEAR 
CLOAD 
(SAVE 
NEW 

TAB{ 

TO 

(FN) 
USING 
{VARPTR) 
USR 
(ERL) 
{ERR) 
{STRING$) 
(INSTR) 
POINT 
(TIMES) 
(MEM) 
INKEY$ 
THEN 
NOT 
STEP 

+ 


* 
/ 
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B7H 


C7H 


EIFEEEEZE 


w 


w k k k 


xe 


Schlusselsort TOKEN 


{P0S) 


SIN 


(CVI) 


(CVD) 
(EOF) 
(LOC) 
(LOF) 
(MKIS) 
(MKS$) 
(MKD$) 
(CINT) 
(CSNG) 
iCDRL) 
(FIX) 


STR$ 
VAL 
ASC 


LEFT$ 
RIGHTS 
NIDS 


DJH 
D4H 
DSH 
D6H 
D7H 
DEH 
DIH 
DAH 
DBH 
DCH 
DCH 
DEH 
DFH 
EBH 
EIH 
E2H 
EJH 
E4H 
ESH 
E6H 
E7H 
EBH 
EIH 


k k k k k k k k k k k k k 


Adreßtabellen der Ausführungsroutinen 





In ROM existieren zwei verschiedene Adreßtabellen für die Ausführungsrouti- 
nen. Die erste wird von der Ausführungssteuerung benutzt, wenn eine BASIC- 
Anweisung auszuführen ist. Sie enthält Adressen für die Ausführungsroutinen 
der TOKEN BBH bis BBH und befindet sich im Adreßbereich 1822H - 1899H. Das er- 
ste TOKEN einer Anweisung (Bit7=0) wird als Index (@ - 59) fur den Tabel- 
lenzugriff benutzt. Aus der Tabelle wird die Adresse der Ausführungsroutine 
entnommen und diese aufgerufen. Beginnt die Anweisung nicht mit einem TOKEN, so 
wird zur Routine für Wertzuweisungen verzweigt (implizites LET). 


Die zweite Adreßtabelle von 16B8H - 1&4FH enhält Adressen von Routinen für 
BASIC-Funktionen, die nur auf der rechten Seite einer Wertzueisung (nach dem 
Gleichheitszeichen) auftreten durfen. 


Wird während der Ausdrucksanalyse ein TOKEN im Bereich D7H bis FAH angetrof- 
fen, so wird dieser als Index {B - 35) für die zweite Adreftabelle benutzt und 
dert die Adresse der Ausfuhrungsroutine entnommen. 


Für die TOKEN BCH bis D6H wird keine Adreßtabelle benötigt, da diese bei Auf- 
treten direkt von den anderen Ausführungsrautinen abgearbeitet werden. 





Adreßtabelle der BASIC-Anweisungen {1822H - 189M) 

TOKEN Schlusselwort Adresse TOKEN — Schlüsselwort Adresse 
88 END 1DAE IE SOUND ZBF5 
81 FOR 1CAi 9F RESUME iFAF 
82 RESET 8138 AB UT 2AFR 
83 SET 8135 Al ON 1F6C 
84 {LS 8119 A2 OPEN 7979 
85 {MD 7973 A3 FIELD 797C 
86 RANDOM 81D3 Aá GET 7977F 
87 NEXT 2286 AS PUT 7982 
88 DATA 1F85 Ab CLOSE 7985 
89 INPUT 219A A7 LOAD 7988 
BA DIM 2688 AB MERGE 798B 
88 READ 21EF 49 NAME 798E 
8c LET 1F21 RA KILL 7991 
8D &0T0 1EC2 AB LSET 7997 
BE RUN 1EA3 AC RSET 799A 


BF 
98 


92 
93 
94 
%5 
% 
97 
98 
%9 
9A 
FB 
% 
9D 


Adreßtabelle der BASIC-Funktionen 


Schlüsselwort 


IF 
RESTORE 
G05UB 
RETURN 
REM 
STOP 
ELSE 
COPY 
COLOR 
VERIFY 
DEF INT 
DEFSNG 
DEFDBL 
CRUN 
MODE 


Schlüsselwort 


INP 


SAR 


L06 
EXP 
cos 
SIN 
TAN 
ATN 
PEEK 
CVI 
CVS 
CVD 


Adresse 


en 


2039 
1091 
1EB1 
1EDE 
1F07 
1DA9 
1F87 
3912 
389D 
3738 
1EB3 
1EB& 
1689 
37zE 
2E63 


Adresse 


795E 


2BC6 


1E7A 
3636 


1B49 


Adresse 


7961 


7967 


TOKEN Schlüsselwort 
AD SAVE 
AE SYSTEM 
AF LPRINT 
BO DEF 
Bi POKE 
B2 PRINT 
B3 CONT 
B4 LIST 
B5 LLIST 
B6 DELETE 
87 AUTO 
B8 CLEAR 
B9 (LOAD 
BA CSAVE 
BB NEW 
(1608 - 1464F) 

TOKEN Schlüsselwort 
E9? EOF 
EA LOC 
EB LOF 
EC is 
ED MKS$ 
EE MKD$ 
EF CINT 
FB CSNG 
Fi CDBL 
F2 FIX 
F3 LEN 
F4 STR$ 
F5 VAL 
Fé ASC 
F7 CHR$ 
F8 LEFT$ 
F9 RIGHTS 
FA MIDS 
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2A9A 


Rangfolge der Rechenoperationen 





Die Rangfolge der verschiedenen Rechenoperationen in arithmetischen Aus- 
drücken wird ebenfalls mit Hilfe einer Tabelle ermittelt, die sich im Adreß- 
bereich 1B9AH bis 1BABH befindet. 


Diese Tabelle enthält für die verschiedenen Operatoren numerische Werte, mit 
denen die Rangfolge festgelegt ist. 


Bei der Ausdrucksanalyse wird jedes Öperator/Operanden-Paar plus dem Rang- 
Wert des vorausgegangenen Operators auf den Stack gelegt. Wird ein Üperator 
mit höherem Rangwert als der vorausgegangene gefunden, so wird die Öperation 
sofort ausgeführt und das damit erhaltene Zwischenergebnis auf den Stack 
gepackt. 


Operator Funktion Rang-Wert 
+ Addition 79 
= Subtraktion 79 
* Multiplikation 7c 
/ Division 7e 
{ Potenzieren TF 
AND logische Verknüpfung 58 
OR logische Verknüpfung 46 


Arithmetische Routinen 


Für die drei unterschiedlichen Typen nuserischer Variablen enthält das ROM bei 
1BABH-1BCHH drei Tabellen mit den Anfangsadressen der zugehörigen arith- 
metischen Routinen. Diese werden von der Ausdrucksanalyse benutzt. 


Funktion Ganzzahlige Variable Variable 
Variable einf.Genauigk. dopp. Genauigk. 
Addition 8802 0716 8677 
Subtraktion 8BC7 8713 8678 
Multiplikation BBF2 0847 BDA 
Division 2498 BBA2 BDES 
Vergleich BA39 BARC BA7B 


Zur Vollständigkeit noch die Adresse der Rautine zur Addition von Text- 
variablen (Strings). Diese liegt bei 298FH. 


Daten - Umwandlung (Typanpassung) 


Zur Umwandlung von Daten in die verschiedenen Variablentypen existiert eine 
weitere Tabelle, die, abhängig vom Zieltyp, die Adressen der entsprechenden 
Uswandlungsroutinen enthält. Diese Routinen wandeln den im Arbeitsbereich i 
{X-Register) befindlichen Wert in den gewünschten Datentyp um. Benutzt wer- 
den sie vornehmlich von der Ausdrucksanalyse um Werte und Zwischenergehbnisse 
verschiedenen Typs miteinander verknüpfen zu können. 


Die Tabelle befindet sich bei 18A1H-18AAH. 


Umwandlung in Adresse 
Textvariable BAF4 * 
Ganzzahlige Variable BATF 
Variable einf.Genauigkeit BAR 
Variable dopp. Genauigkeit BADE 


* Für Textvariable enthält die angegebene Routine keine Umwandlung, sondern 
nur einen Test, ob die im Arbeitsbereich 1 befindliche Variable auch wirklich 
eine Textvariable ist. Wenn nicht, wird ’TYPE MISMATCH ERROR’ ausgegeben. 
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Fehleraeldumgen 





Ian ROM-Bereich befinden sich zwei Tabellen mit Fehlermeldungen. 


Die erste Tabelle befindet sich bei 18C9H-18F6H und enthält pro Fehlermeldung 
nur eine zwei Zeichen lange Abkürzung, Sie ist ein Relikt aus einem anderen 
Einsatzrechner dieses Betriebssystens und wird vom LASER-Rechner nicht benutzt. 


Die von den LASER iif, 218, 318 und dem VZ288 benutzte Tabelle liegt bei 
3CECH-3E2BH und enthält die Fehlermeldungen in ausgeschriebener Form. 


Die Fehlermeldungen werden anhand einer Fehlernummer ermittelt, die als Index 
für den Tabellenzugriff genutzt wird. 


Fehlernunser Fehlercode Fehlermeldung ilang) 
8 NF NEXT WITHOUT FOR 
2 SN SYNTAX ERROR 
4 RG RET’N WITHOUT GOSUR 
& oD OUT OF DATA 
8 FC FUNCTION CODE ERROR 
À oV OVERFLOW 
c oM OUT OF MEMORY 
E uL UNDEF” D STATEMENT 
18 BS BAD SUBSCRIPT 
12 DD REDIM’D ARRAY 
14 8/ DIVISION BY ZERO 
16 ID ILLEGAL DIRECT 
18 TM TYPE MISMATCH 
1A 08 OUT OF SPACE 
1c LS STRING T00 LONG 
1E ST FORMULA TOO COMPLEX 
28 CN CAN’ T CONTINUE 
22 NR NO RESUME 
24 RW RESUME WITHOUT ERROR 
26 VE UNPRINTABLE ERROR 
28 Mo MISSING OPERAND 
2A FD BAD FILE DATA 
2C L3 DISK COMMAND ERROR 
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Externe Tabellen 


Als ’Externe Tabellen’ werden die Datenstrukturen bezeichnet, die vom BASIC- 
Interpreter im RAM-Bereich angelegt und verwaltet werden. Merkmal der externen 
Tabellen ist, daß sich ihr Inhalt ändern kann und auch teilweise ihre Lage im 
RAM-Bereich. 


Fur Tabellen, die ihre Lage im Speicher verändern, befinden sich im BASIC- 


Kommunikationsbereich Adreßzeiger, so daß sie jederzeit wieder aufgefunden und 
adressiert werden können. 


Der MSIC - Kossunikationsbereich (7888H - 7AEBH) 





Ia Komsunikationsbereich werden vom BASIC-Interpreter alle erforderlichen 
Adreßzeiger und Verwaltungstabellen angelegt und verwaltet, die sich während 
der normalen Programmbearbeitung ändern können bzw. in denen der Nutzer ggf. 
auch eigene Ablaufvariable definieren oder ändern kann. 


Betrachten Sie den Kommunikationsbereich als den Notizblock des MSIC-Inter- 
preters. 


Die nachfolgende Auflistung enthält eine Beschreibung jedes einzelnen Bytes 
in diesen Bereich. 


Einige Tabellen innerhalb des Komsunikationsbereichs werden im Anschluß an die- 


se Auflistung noch ausführlich beschrieben. 


Der Bereich 7800H bis 7835H wird bei der Systea-Initialisierung 
aus dem ROM-Bereich vorbelegt. 


m 03 96 IC JP 1C96H ;RST 8 - Vektor 
7883 C3 78 1D JP 1D78H SRST 18 - Vektor 
780 awie JP ICOBH ;RST 18 - Vektor 
9 595 JP SM SRST 28 - Vektor 
780c CI 00 08 RET SRST 28 - Vektor 
7860F c9? 08 88 RET . ;RST 38 - Vektor 
7812 FB EI ıRST 38 - Vektor 
7813 C9 88 RET 


7815 
7816 
7818 


7819 
781A 
7818 


781D 
781E 


7828 
7822 
7823 


7825 
7826 
7828 
7829 
782A 
7828 


7820 
78% 


7833 
7835 


7836 


7837 


2 78 


8D 85 


43 


50 52 


3 8 58 
c7 20 88 


JE 2 


Tastatur Device-Control-Block (DCB) 
DCB-Kenner 

Treiber-Adresse 

Hintergrund-Flag 

(8=grün, i=schwarz) 

akt. Hintergrund 





KP 


Bildschira Device-Control-Block (DCB) 
{im LASER 118-318 unbenutzt) 
DCB-Kenner (gelöscht) 

Zeiger auf Programs-Anfangsadresse 
bei CLOAD 

Cursor-Adresse 





Prüfsumme bei Kassetten Ein-/Ausgabe 


Drucker Device-Control-Block (DCB) 
DCB-Kenner 

Treiber-Adresse 

Zeilen/Seite+i 

Zeilenzähler 


? PR’ 


JP 5000H sunbenutzt 
RST 98 unbenutzt 


LD AB sbei unbekannter DCB-Kennung A=B 
RET 


Puffer Bi für 1. Tastencode bei gleichzeitig mehrfacher 
Tastenbetätigung 
Puffer B2 für 2. Tastencode bei gleichzeitig mehrfacher 
Tastenbetätigung 


7838 


7839 


783A 


7838 


783C 


7830-7848 


7841 


7842-7843 


7844-7845 


784b 


7847-7848 


784C 


784D-787C 


FLAG 1 

Bit 7 - CONTROL-Flag 
Bit 6 - REPEAT-Flag 
Bit 5 - WAIT-Flag 

Bit 4 - B2-Status-Flag 


Bit 3 - Bi-Status-Flag 


Bit 2 - FUNCTION-Flag 

Bit 1 - INVERSE-Flag 

Bit 8 - SHIFT-Flag 

FLAG 2 

Bit 7 - unbenutzt 

Bit & - CRUN-Flag 

Bit 5 - Ini-Flag f. gepufferte Ausgabe 
Bit 4 - Flag f. INPUT-Anweisung 
Bit 3 - VERIFY-Flag 

Bit 2 - BREAK-Flag 

Bit 1 - BUZZER-Flag 

Bit 8 - Carriage-Return Flag 


Zeitzähler 

INPUT/OUTPUT-Latch 

Zeichensicherung fur Cursor-Darstellung 
unbenutzt 

Blink-Zähler 


Zwischenspeicher bei Tastaturabfrage 
{Zeile/Spalte) 


Zwischenspeicher bei Tastaturabfrage 
(Matrix-Adresse) 


Farb-Code 
unbenutzt 


Ausgabe-Flag f. Meldungsausgabe bei Kassetten 1/0 
{}8 - Meldungen werden unterdrückt) 


unbenutzt 
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787D 


7880 
7882 
7883 
7884 
7885 
7887 
7888 
788A 
7888 
788D 


788E 


7898 


7893 


7895 


7896 


7899 


789A 


7898 


78% 


789D 


789% 


TOR 


78A0 


IR 8 


D6 88 


7C 
DE 88 
67 
78 
DE 08 
47 
JE 80 


4A 1E 


40 Eb 4D 


e S S 8 8 


47 7B 


RAM-Erweiterungsausgang der Interrupt-Service-Routine 


Der Bereich 7BBBH-7BASH wird bei der Initialisierung aus 
dem ROM-Bereich gefüllt 


Unterprograma fur Division 


SUB 8 ;Subtraktion Z2 - Zi 

LD L;A swird vor jedem Aufruf modifiziert. 
LD AH 

SBC AB 

LD HA 

LD AB 

SBC AB 

LD B,A 

LD AB 

RET 


USR - Startadresse 
vorbesetzt mit FUNCTION-CODE Error 


Multiplikator f. RND 
Unterprogramm fur INP 
IN À, (0) 

RET 


Unterprograms fur OUT 
OUT BA 


INKEY$-Zwischenspeicher 

letzter Fehlercode für ERR 

Druckerposition in der Zeile 

Geräte-Flag (B=Bildsch., 1=Drucker, 88=Kassette) 
Zeilenlänge auf dem Bildschirm (vorbesetzt mit 64) 
letzte Tabulator-Position (vorbesetzt sit 48) 
unbenutzt 

Anfangsadresse des String-Bereichs 
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792  FEFF 
Ta EI TA 
TBAG-T8A7 
78A7-78A8 
7949 
TBAA-TBAD 
T8AE 


78AF 


7880 
7881-7882 


7883-7884 


7885-7802 


7803-7805 
7906-7807 


7808-7809 


78DA-78D8 
78DC 


78DD 


aktuelle Zeilennummer 
Anfangsadresse des Programatextes 
Spaltenzeiger für Ausgabebild 
Zeiger auf Ein-/Ausgabe-Puffer (ab 79EBH) 
Eingabe-Flag {ß = Kassette) 
letzte Zufallszahl 

Flag fur DIM-Anweisung 

Typ des Wertes im X-Register 

02 = Integer 

B3 = String 

84 = einfache Genauigkeit 


88 = doppelte Genauigkeit 


Flag fur Zwischencode-Erzeugung bei DATA 
Operationscode bei der Ausdrucksanalyse 


Endadresse des BASIC-Speicherbereichs 
Zeiger auf String-Zwischenspeicher 


String-Zwischenspeicher {18 x 3 Bytes) 
{1 Bute - Länge, 2 Byte - Adresse im Stringbereich) 


vori. String-Zwischenspeicher 
Zeiger auf letztes freies Byte im Stringbereich 


Allg. Adresszwischenspeicher 
Formatflag f. Stringausgabe einer Zahl 


DATA - Zeilennummer 
Flag zur Sperrung der Indizierung 


RESUME/RETURN - Flag 
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78DE 


78DF-78E0 


78E1 


78E2-7BE3 


78E4-78E5 


78E6-78E7 


78E8-78E9 


T8EA-TBEB 


78EC-7BED 


TBEE-7BEF 


78F8-78F1 


78F2 


78F3-78F4 


78F5-78F6 


78F7-78F8 


79F9-78FA 


79FB-79FC 


Zwischenpuffer für PRINT USING 
DATA-Flag für INPUT u.a. 


allgemeiner Adress-Speicher 

2.B. Programmfortführung bei NEW 

Laufvariable bei FOR/NEXT 

Adr. d. Variablentabelle bei LET 

AUTO-Eingabe - Flag {8 - kein AUTO) 

AUTO - Zeilennumser 

AUTO - Erhöhungswert 

Adresse der aktuellen Zeile {FFFF = Direktkommando) 
Zeiger auf den BASIC-Stack 

Nummer der Zeile, in der der letzte Fehler auftrat 


Nummer der Zeile, in der der letzte Fehler auftrat 
(„Option bei LIST) 


Adresse der Zeile, in der der Fehler auftrat 
Adresse einer Fehlerbehandlungs-Routine (ON ERROR) 
Fehler - Flag (Fehler=255, RESUME=B) 

Adresse des Dezimal-Punktes im Druck-Puffer 


Zeilennummer, bei der die letzte Unterbrechung 
stattfand (END, STOP, BREAK) 


Adresse der Zeile, in der die letzte Unterbrechung 
stattfand 


Programa-Endadresse 
Anfang der Variablen-Tabelle 


Endadresse des 1. Teils der Variablen-Tabelle 
Anfang der Matrix-Tabelle {2. Teil) 


T8FD-78FE Anfangsadresse des freien Speichers 
(hinter der Matrix-Tabelle) 


TBFF-7908 Zeiger auf DATA-Zeile 


Tupcode - Tabelle 
781 


m< = Eee c + I DD U DZ ZT "(Eon monw>r 


7918 TRACE -FLAG (Ø = TRON, AF = TROFF) 
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X - Register 


791C zus. Bute für rechts schieben 
INT STRING SINGLE DOUBLE 

791D LSR 

791E LSB 

7911F LSB 

7928 LSB 

7921 LSB ADR LSB LSR 

7922 MSB ADR LSB LSB 

7923 MSB MSB 

7924 EXP EXP 

7925 Zwischenspeicher fur Arithmetik-Operationen. 
2.B, Vorzeichen 

TI2b-7F2E Y - Register 
(Aufteilung wie X-Register) 

792F unbenutzt 

7938-7949 Druck-Puf fer 

794A-79514 Zusätzliches Register fúr Multiplikationen und 
Divisionen mit doppelter Genauigkeit 
RAM-Vektoren für Disketten-Befehle 
vorbesetzt mit ’JP 812DH’ (DISK-COMMAND - Error) 

792 CVI-Anweisung 

795 FN - Anweisung 

7958 CVS-Anweisung 

7958 DEF-Anweisung 

795E CVD-Anwei sung 

7964 EOF-Anweisung 

7964 LOC-Anweisung 

7967 LOF-Anweisung 

796A MKI$-Anweisung 

796D MKS$-Anweisung 

7978 MKD$-Anweisung 

7973 CMD-Anweisung 

7976 TINE$-Anweisung 

7979 OPEN-Anweisung 


797C 
797F 
7982 
7985 
7988 
7988 
798E 
7991 
7994 
7997 
799A 
799D 
7948 
7943 


796 
7969 
TIAC 
79AF-7981 
7982 
7985 
7988 
798B 
798E 
790i 
7904 
79C7 
TICA 
79CD 
7908 
7903 
7906 
7909 
7 
79DF 
TIE2-T7IE 


7%5 3A 08 2C 


FIELD-Anweisung 
GET-Anweisung 
PUT-Anweisung 
CLOSE-Anwei sung 
LOAD-Anweisung 
MERGE-Anweisung 
NAME-Anweisung 
KILL-Anweisung 
& - Anweisung 
LSET-Anweisung 
RSET-Anweisung 
INSTR-Anweisung 
SAVE-Anweisung 
LINE-Anweisung 


RAM-Erweiterungsausgänge 
vorbelegt mit C9H-BOH-BOHR (RET) 


aus ERROR-Routine 
aus USR-Routine 
Anfang BASIC-Schleife 
unbenutzt 

aus Programsm-Eingabe 
Ende Programmeingabe 
Ende Programseingabe 
aus NEW und END 
Endabfrage PRINT 
Datenausgabe 
Einlesen v. Tastatur 
RUN-Ausfuhrung 
Anfang PRINT-Anweisung 
PRINT-Anweisung 
PRINT-Anweisung 
PRINT-Anweisung 
INPUT-Anweisung 

MID$ als Anweisung 
INPUT-Anweisung 

READ + INPUT + LIST 
unbenutzt 


1/6-Buffer-Vorspann 


- 1 - 


TIEB-7AIC Ein/Ausgabe-Puffer 


798 BASIC-Stack während der Initialisierung 
7A9D-7AAD Programm-/Dateiname - Zwischenspeicher bei 
Kassetten-£in/Ausgabe 

TAAE Spaltenanzeige auf dem Bildschirm 


Zusätzlicher Ausgabepuffer für gepufferte 


Bildschirmausgabe 
TAAF Anzahl Zeichen im Puffer 
TAB@-7ABI Puffer-Zeiger 
7AB2-7AD1 Puffer-Bereich 
7AD2-7ADS 4 Byte-Puffer für Grafik-Druck, SOUND u. Kassette 1/0 
7AD6 Zähler f. o.a.Puffer + Länge Namen bei Kassetten 1/0 


Zeilenstatus fur Bildschirm-Zeilen 
(BB=Einzelzeile, 8i=Doppelzeile, Bß=Folgezeile) 


7AD7 Zeile i 
7ADB Zeile 2 
7409 Zeile 3 
7ADA Zeile & 
7ADB Zeile 5 
7ADC Zeile 6 
7ADD Zeile 7 
7ADE Zeile 8 
7ADF Zeile 9 
7AEB Zeile 18 
TAEI Zeile 11 
TAE2 Zeile 12 
TAE3 Zeile 13 
TAE& Zeile 14 
7AES Zeile 15 
7AEb Zeile 16 
7AE7 unbenutzt 
7AE8 Programs-Anfang 
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Der String-Zwischenspeicher 





Dies ist eine Tabelle innerhalb des Kommunikationsbereichs. 
BASIC-Interpreter zur Zwischenspeicherung von Text-Variablen (Strings) benutzt; 
die bei String-Additionen oder einigen PRINT-Öperationen anfallen. 


Die Tabelle besteht aus zehn 3-Bute Einträgen, die nacheinander zugewiesen wer- 
den. Am Anfang der Tabelle, bei 78B3H, befindet sich ein Adreßzeiger auf den 
nächsten freien Eintrag. Bei Initialisierung des Rechners wird er auf den er- 


sten Eintrag der Tabelle gesetzt. 


Jeder Eintrag besteht aus einem Längenbyte und einem Adreßzeiger auf den 
String is Stringbereich oder in der Programm-Tabelle. Einträge werden von oben 
nach unten zugewiesen und von unten nach oben wieder freigegeben. 


Bei überlauf der Tabelle wird die Fehlermeldung 


FORMULA TOO COMPLEX 


ausgegeben. 


78B3 


7885 


7888 


78BB 


! Zeiger auf den ersten ! 


l Länge ! 
t Adresse LSB 3 
l Adresse MSB ! 
l Länge ! 
f Adresse LSB t 
t Adresse MSB ! 


{7BB3H - 78D2H) 


! freien Eintrag ee: 


t 
t 
t 
t 
t 
t 
t 
t 
t 


Die Typ-Code - Tabelle (7901H - 791AH) 


Diese Tabelle wird vom BASIC-Interpreter benutzt, um den Datentyp einer Va- 
riablen zu ermitteln {Ganzzahlig, String, einf. Genauigkeit, dopp. Genauig- 
keit). 


Die Lage dieser Tabelle ist ebenfalls fest im Kommunikationsbereich, daher ist 
zur Adressierung auch kein Adreßzeiger erforderlich. Der Inhalt ist änderbar; 
bei normalem BASIC mit Hilfe des POKE-Befehls, im EXTENDED BASIC mit den 
DEFxxx-Deklarationen. 


Die Tabelle ist 26 Byte lang, das entspricht der Anzahl Zeichen des engli- 
schen Alphabets. Fur jeden Buchstaben von ’A’ bis ’Z’ ist ein Byte vorhan- 
den. Als Index für den Tabellenzugriff wird der erste Buchstabe eines Vari- 
ablennamens benutzt. Jeder Eintrag enthält einen Code, der Auskunft uber den 
vereinbarten Variablentyp gibt: 


82 - ganzzahlige Variable 

8 - Text-Variable (String) 

84 - Variable einfacher Genauigkeit 
88 - Variable doppelter Genauigkeit 


Bei der Systeninitialisierung werden alle Einträge mit B4, d.h. als Variable 
einfacher Genauigkeit gekennzeichnet. 


Enthält ein Variablenname bereits eine Typen-Kennung (z.B. A$ oder BIZ), so 
hat diese Vorrang vor einen anderslautenden Tabelleneintrag. 





Adresse Buchstabe Typ bei Initialisierung 
7991 A 24 
7982 B 84 
7983 c 84 
7904 D B4 
7985 E B4 
7706 F B4 
7907 & 54 
7908 H B4 
7909 I B4 
790A J 24 
7908 K B4 
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TRRC L B4 
79780 M B4 
70E N B4 
790F 0 B4 
7910 P B4 
7911 Q B4 
7912 R B4 
7913 5 B4 
7914 T 84 
7915 U 84 
7916 y B4 
7917 W 84 
7918 X B4 
7919 Y B4 
791A Z %4 
Zeilenstatus - Tabelle {7AD7H - 7AE6H) 





Aa Ende des Kommunikationsbereichs befindet sich eine ib Byte Tabelle, die vom 
Bildschirm£ditor zur Zeilenverwaltung benötigt wird. Sie enthält für jede der 
1& Bildschirmzeilen einen 1-Byte Eintrag nit folgender Inhalt: 


88 - bei der Zeile handelt es sich um 
eine Einzelzeile von 32 Zeichen. 


8i - diese Zeile ist die erste einer 
Doppelzeile von 64 Zeichen 


2 - diese Zeile ist die zweite einer 
Doppelzeile von 64 Zeichen. 


Programs - Tabelle (Program Statement Table = PST) 





Ein eingegebenes oder von Kassette bzw. Diskette eingelesenes BASIC-Programı 
wird mit all seinen Anweisungszeilen in der Programmtabelle gespeichert. Diese 
schließt sich normalerweise direkt an den Kommunikationsbereich an. 


Da sich die Programs-Tabelle im Freispeicherbereich des RAM befindet und sich 
ihre Lage ggf. ändern kann, befindet sich im Komwnikationsbereich bei 7BA4H 
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ein Zeiger auf die Tabellen-Anfangsadresse und bei 7BF9H ein Zeiger auf das 
Tabellenende+1. 


Eingegebene Programsmzeilen werden von der Eingabe-Routine komprimiert, d.h. 
BASIC-Schlüsselworte werden durch TOKEN ersetzt, und in die Programstabelle 
übertragen. Die einzelnen Programmzeilen werden aufsteigend nach Zeilennummern 
gespeichert, unabhängig davon, in welcher Reihenfolge sie eingegeben wurden. 


Jede Programmzeile beginnt mit einem Adreßzeiger auf den Anfang der nächsten 
Zeile. Darauf folgt die Zeilennummer im 2-Byte Integer- (ganzzahligem) Format. 
Hinter der Zeilennummer steht der eigentliche Zeilentext, der mit einem 
'Null’-Byte (BOH) beendet wird. Dieses ’Null’-Bute bezeichnet man auch als "End 
of Statement"-Flag oder EOS. 


Das Programmende wird durch zwei weitere ’Null’-Bytes nach der letzten Pro- 
grammzeile gekennzeichnet. 


— 


t Zeilenende 88H ! 








m! 


t 2-Byte Adreßzeiger lme} 





! 2-Byte Adreĝzeiger er > 


f Zeilenende 00H I t 
meamea aee aae aeee eea e a e e aa E am ee me e ae 
! Programmende GOH-GOH 


(78F9H)=> 
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Der Inhalt der Programe-Tabelle soll anhand eines einfachen Bespieles von zwei 


Programazeilen dargestellt werden. 


420 IFA = 25 THEN 588 
AIB A=A+ti 


Zeiger von vor- 
heriger Zeile 


428 


= u 


8145H ====) 


438 


8153H ===> 


BEBSSBEBIBSZLTHLÜIBESSHUHSSEHRSHBFTSBHFTFERE 


t 

U} 
en 
I 
oo 
too 
too 
oo 
too 
oo 
too 
too 
oo 
0 
too 
oo 
oo 
oo 
oo 
t m 
1) 
too 
t I 
t l 
t t 
t t 
t t 
t t 
t t 
t t 
t t 
t t 
l t 


= 8132H 


Die Variablen - Tabelle 





In dieser Tabelle sind alle Variablen enthalten, die in einem BMSIC-Programm 
definiert und zugewiesen wurden. Die Tabelle ist in zwei Abschnitte unter- 
teilt. Abschnitt í enthält alle einfachen Variablen, im Abschnitt 2 sind alle 
dimensionierten Variablen, d.h. Matrizen, verzeichnet. 


Drei Adreßzeiger im Kommunikationsbereich geben Auskunft über die Lage der 
VYariablen-Tabelle im RAM-Bereich. 


78F9H - Anfangsadresse des 1. Abschnitts 
teinfache Variable) 

7BFBH - Anfangsadresse des 2. Abschnitts 
(Matrizen) 

78FDH - Endadresse der Variablentabelle + í 
{= Beginn des Freispeichers) 


!  Programm-Tabelle ! 











EEE HR ==) eei 
i einfache : 
! Variable 
(78FBH) ===} -—--- r 
: dimensionierte i 
Variable ; 
78FDH) === ! Freispeicher ! 


Unabhängig davon, in welchem Abschnitt eine Variable definiert ist, die er- 
sten drei Bytes jedes Eintrags haben das gleiche Format. 

Byte I enthält den Typcode der Variablen (82, 23, B4 oder BB), der der Länge 
des Wertteils entspricht. Die Bytes 2 und 3 enthalten den Variablennamen in 
der Reihenfolge ’zweiter Buchstabe/erster Buchstabe’. 


In i. Abschnitt (einfache Variable) folgt darauf der Wert in der Folge 
LSB. assena MSE oder im Falle von Text-Variablen (Strings) ‘Länge’? und 
"Adresse’ auf den String im String-Bereich oder in der Programm-Tabelle. 
Einträge im Abschnitt 2 haben nach dem J-Bute Vorspann einen weiteren Kopf- 
eintrag, der Angaben uber die Größe der Matrix enthält. 
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Die Variablen werden während des Programsablaufs in die Variablentabelle ein- 
getragen und zwar immer dann, wenn eine Wertzuweisung erfolgt oder eine Matrix 
per DIM-Anweisung erstellt wird. 


Innerhalb der Abschnitte werden neu auftretende Variable einfach angefügt, es 
besteht keine alphabetische Sortierfolge. Da Einträge erst dann vorgenommen 
werden, wenn eine Variable während des Programmablaufs auftritt, kann es ge- 
schehen, daß der gesamte 2. Abschnitt im Speicher verschoben werden muß, um 
Platz für eine einfache Variable im i. Abschnitt zu schaffen. 


Beispiel: In Programaablauf wurden die Variablen A, B und C15) 
bereits definiert und in die Variablen-Tabelle einge- 
tragen. 


Folgt nun eine Variable D, so muß die Matrix C(5) im 
zweiten Abschnitt der Tabelle verschoben werden, 

so daß D am Ende des ersten Abschnitts eingefùúgt werden 
kann. 


Matrizen werden im Abschnitt 2 so gespeichert, daß die Indizes von links nach 
rechts bearbeitet werden 


Beispiel: DIM Ei2,3) würde wie folgt gespeichert: 


E(8,8) 
Et1,B) 
E(2,8) 


EB, 3) 
Ei1,3) 
Ei2,3) 


Die Stellung jedes Elements in der Matrix kann mit folgender Formel ermit- 
telt werden: 


{Beispiel für eine drei-dimensionale Matrix) 
INDEX = (DRI + GMI + DMI) + GLI + DLI 
GMI = Grenzwert mittlerer Index + 1 
GLI = Grenzwert linker Index + 1 
DRI = definierter rechter Index 
DMI = definierter mittlerer Index 
DLI = definierter linker Index 
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Beispiel: Eine Matrix wurde mit DIM At5,4,4) definiert. 
Gesucht wird das Element Atl3,1,2). 


Das ergibt: (MI =5, &LI=& 
DRI = 2, DMI = 1, DI = 3 


INDEX = (2 #5 +1) #6 +3 
=69 
Al3,1,2) ist das 69. Element der Matrix. 


Die Routine zur Berechnung der Indizes finden Sie im ROM bei Adresse 2795H. 


Beispiele für verschiedene Einträge in der Variablen-Tabelle 





1. Einfache Variable 


Wertlänge È 22 ! 
Name 1 2 ! 
t 43 ! CX = 100 
Wert i 64 ! 
t 28 t 
Wertlänge | B4 l 
Name t g t 
! 44 5 D=-4 
Wert ! 0a l 
! a ! 
{ 88 ! 
t 8 ! 
Wertlänge i 8 ! 
Name t 22 l 
t 4 l 
Länge 83 t Ag = "XY7" 
Adresse ! nn ! 
t nn I 


2. Ein-dimensionale Matrix 


DIM A (28) 
Wertlänge ! B4 ! 
Matrixname j w : 
t 4i i 
Länge der : nn ' = Distanz zur n. Matrix 
Matrix j an i 
Anz. Indizes ! Bl : 
Max. Indexti ! 15 : 
! 22 ! 
AtB) ! LSB : 
t NSR t 
t MSE l 
! EXP : 
A) : LSB : 
1 NSB 1 
i MSE : 
\ EXP ! 
A128) : LSB 
p NSB I 
i MSB 1 
: EXP : 
nächste ` 84 
Matrix : Lid : 
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3. Drei-dimensionale Matrix 


Wertlänge 
Matrixname 


Länge der 
Matrix 

Anz. Indizes 
Max.Wert 
recht. Index+1 
Max. Wert 
mittl. Index+i 
Max.Wert 
link. Index +1 
AtB,8,8) 


At1,2,8) 


A459) 


nächste 
Matrix 


DIM A (4,5,9) 


BIERSBFASZESR 


en 
u 


235 


LSB 
NSB 
MSB 
EXP 


= Distanz zur nächsten Matrix 


J00 4-Byte Einträge 


18. Die Nutzung des BASIC - Stacks 


Vor dem String-Bereich liegt am Ende des für BASIC verfügbaren Speichers der 
Stack-Bereich des BASIC-Interpreters. 


In Normalfall dient der Kommunikationsbereich dem BASIC-Interpreter als Merk- 
zettel zur Zwischenspeicherung von Arbeitswerten und Adressen. Das geht jedoch 
nicht immer gut, da einige Routinen sich eventuell selbst intern aufrufen 
{Rekursion) und dabei die zuvor gespeicherten Zwischenresultate überschrieben 
wurden. Eine indizierte Tabelle würde hier auch Abhilfe schaffen, aber der 
BASIC-Interpreter bedient sich dazu des Stacks. 


Neben der normalen Zwischenspeicherung von Registerinhalten und Rucksprung- 
adressen wird der Stack vom BASIC-Interpreter vornehalich für drei Sonderfunk- 
tionen benutzt: 

- FOR/NEXT - Schleifen 

- GOSUR - Aufrufe 


- Auscdrucksanalyse 


ta in einer Fi XT - Schleife 
Bei Auftreten einer FOR-Anweisung werden alle benötigten Variablen-Adressen 
in einem FOR-Block auf den Stack gepackt. Bei Auftreten einer NEXT-Anweisung 
wird der FOR-Block nit der entsprechenden Laufvariablen auf dem Stack gesucht. 
Diese Suchroutine befindet sich bei 1936H. 


Der Stack wird dabei von hinten nach vorne durchsucht. Wird kein passender 
FOR-Block gefunden, so wird die Fehlermeldung 


NEXT WITHOUT FOR 


erzeugt. 


Forsat eines FOR-Blocks! 


StackNutzung bei einer _60SUB - Anweisung 


FOR - TOKEN 
Adresse der 


Laufvariablen 


Erhöhungswert 


Endwert 


Zeilennumser der 
FOR-Anweisung (binär) 


Adresse der ersten 
Schleifenanweisung 


Bei Auftreten einer G0SUB-Anweisung wird ein 7-Bute Block auf den Stack ge- 
schrieben, der von einer anschließenden RETURN ermittelt und ausgewertet wird. 


Format eines 605UB-Blocks: 


GOSUB-TOKEN 


Zeilennumser der 
GOSUB-Anweisung 


Adresse der GOSUB-Anweisung 
in der Programm-Tabelle 


11. Die Ausdrucksanalyse 


Die Ausdrucksanalyse zerlegt Ausdrücke in ihre einzelnen Elemente und ver- 
knüpft diese entsprechend der Rangfolge der Operatoren innerhalb des Ausdrucks. 


Jeder Ausdruck wird dabei durchsucht und die höchstwertigste Operation zuerst 
ausgeführt. Das daraus resultierende Zwischenergebnis wird zwischengespeichert 
und die nächsthöhere Operation is Ausdruck ermittelt und ausgeführt, Das wird 
solange fortgesetzt, bis der Ausdruck vollständig aufgelöst wurde. 


Ein Ausdruck wird von links nach rechts durchsucht. Die Suche wird unterbro- 
chen, wenn ein Operator oder das Ende des Ausdrucks gefunden wurde. Die Variab- 
le links des gefundenen Operators (als aktuelle Variable bezeichnet), zusammen 
mit dem Operator (ein arithmetisches Verknupfungssymbol +, -, #;, /, [) werden 
als Satz bezeichnet und entweder 


- wenn der Rang des Operators größer als der vorausgegangene war, als Satz 
auf den Stack geschrieben oder 


- wenn der Rang des Operators gleich oder niedriger als der vorausgegangene 
war, die Variable mit dem vorherigen Satz vom Stack verknüpft. 
Der vorherige Satz wird dabei vom Stack entfernt und das Ergebnis der 
Verknüpfung als neue "aktuelle Variable’ betrachtet. 


Das wird solange wiederholt, bis ein so geschaffener neuer Satz auf den Stack 
’gepushed’ wurde oder keine weiteren Werte zur Verknüpfung mehr auf dem Stack 
stehen. In einen solchen Falle wurde der Ausdruck vollständig aufgelöst. 


Die Variablen/Operator - Sätze werden in folgendem Format auf den Stack ge- 
schrieben: 


Rang-Wert des voraus- t 1 XXXXXX '! 
gegangenen Üperators ! 1 XXXXXX ! 
{beim 1.Eintr. =D t ! XXXXXX ! 
Fortsetzungsadresse ! t 


nach einer Verknup- l t 
fung {meist 2346H) j t 


Wert der Variablen t 


Typ-Code der ! i ; TOKEN des Operators nach der 

Variablen ; t Variablen (B=+, 1=-, 2=%, 3=/ 
! ! l 4={, 5=AND, &=0R) 

Adresse der Ver- ! ! 

knupfungsroutine ! | 

{für +t- * / = 24086) ! t 


Rang-Wert des ! 1 XXXXXX ! 
Operators l t! XXXXXX ! 
! t XXXXXX ! 


Die Prüfung, ob eine Verknüpfung stattfinden soll oder nicht, ist relativ ein- 
fach. Der Rang-Wert des Operators im letzten Satz ist der letzte Eintrag auf 
dem Stack. Es wird geprüft, ob der neue Operator im Rang-Wert gleich oder 
kleiner ist. Wenn nicht, wird der neue Operator und die aktuelle Variable als 
neuer Satz auf den Stack geschrieben. Wenn ja, wird eine Verknüpfung durch- 
geführt, 


In Falle einer Verknüpfung wird der letzte Satz vollständig vom Stack geholt 
und die dort angegebene Verknüpfungsroutine {normalerweise bei 2406H) ange- 
sprungen. Dort wird die vorherige Variable vom Stack mit der aktuellen Variab- 
len entsprechend dem vorherigen Operator verknüpft. Das Ergebnis wird die neue 
aktuelle Variable, die mit dem aktuellen Operator einen neuen Satz bildet. 


Ia Anschluß an die Verknüpfung wird dorthin zurüuckgesprungen, wo erneut gepruft 
wird, ob der jetzt gebildete neue Satz im Rang-kert kleiner oder gleich dem 
eines weiteren Satzes auf dem Stack ist. 


Ist auf dem Stack kein Satz mehr vorhanden oder hat der vorhandene einen nie- 
drigeren Rang-Wert als der aktuelle Satz, so wird der neu gebildete Satz auf 
den Stack geschrieben. Ansonsten findet wieder eine Verknüpfung statt. 


Das Ende einer Anweisung oder das Auftreten eines nicht-arithmetischen TOKEN 
löst immer eine Verknupfung aus. 


Das folgende Beispiel soll eine solche Ausdrucksanalyse einmal in Einzelschrit- 
ten darstellen: 


Ausdruck: A=B+tC#D/ELS 


Die Suche beginnt mit dem ersten Zeichen rechts des Gleichheitszeichens und 
endet zunächst am ’+’ - Zeichen. 


B? und ’+’ werden als erster Satz auf den Stack geschrieben, da dort bisher 
noch kein Satz zum Vergleich vorhanden war bzw. die dort bei der Initialisie- 
rung gespeicherte B einen niedrigeren Rang-Wert vorspiegelt. 


Die Suche wird fortgesetzt und erneut beim '*’ unterbrochen. Der Variablen/0pe- 
rator - Satz ’C # wird als zweiter Satz auf den Stack geschrieben, da der 
Rang-Wert des Operators ’*’ größer als der des vorherigen, auf dem Stack be- 
findlichen ’+’ ist. 


Der Stack sieht jetzt wie folgt aus: 


u 


t B t XXXXXX ! 

! 234b lm 
t Wert von B ! 

ı 4 tu t! Satzi 
! 240b ! 

t 79 1 ROH t-------- 
! 2345 ne 
l Wert von € t 

va ı m t Saıtz2 
l 2486 t 

1 7E E XXXXXX t=- 
t = 


Eine erneute Unterbrechung findet bei dem Zeichen ’/’ statt. Nun ist eine Ver- 
knupfung durchzuführen, da die Rangwerte von ’*’ (auf dem Stack) und ’/’ {der 
neue Operator) gleich sind. 


Satz 2 wird vom Stack gelesen und es wird zur Verknüpfungsroutine bei 24864H 
verzweigt. Dort wird die Verknüpfung zwischen °C # und der aktuellen Variablen 
’D’ durchgeführt, d.h. °C’ wird mit °P multipliziert. Das ergibt eine neue 
aktuelle Variable, eben das Produkt von ’C # P’. 


Nach der Multiplikation wird das Programm bei 2344H fortgesetzt und der neue 
Variablen/Operator - Satz ’CıD /’ in Rang-Wert mit dem auf dem Stack befind- 
lichen Satz 1 verglichen. Da der Rang-Wert von ’/’ größer ist als der des er- 
sten Satzes (’+’), wird ’C#D /’ als 2, Satz auf den Stack gebracht. 


Nun hat der Stack folgenden Inhalt: 


nn 


! OB t XXXXXX ! 

! 2346 taae 
! Wert von B ! 

! Q ı Satz í 
t 2406 f 

! 79 t XXXXXX m 
: 2346 lm 
! Produkt C#D t 

! A t! B !t Satz2 
! 2406 t 

I 7C E XXXXXX mm 
t 


1 
Die Analyse des Ausdrucks wird hinter dem ’/’ fortgesetzt und hält erneut bein 
Erreichen des Zeichens ’[’ an. Der aktuelle Variablen/Operator-Satz ’EL’ wird als 
Satz 3 auf den Stack gebracht, da der Rang-Wert von ’£’ größer ist als der des 
vorausgegangenen ’/’, 


Das ergibt folgendes Bild auf dem Stack: 


' Satz 1 w.Satz 2 ! 


! wie zuvor t 
t 2346 ed 
t Wert von E 1 
! G t! B t Sa273 
! 2486 ! 
INK !-————- 


Bei Fortsetzung des Suchvorgangs wird hinter der Ziffer ’5’ das Ende des Aus- 
drucks festgestelit. Wie zuvor gesagt, löst das Erreichen des Ausdruckendes 
eine Verknupfung aus. 


Satz 3 wird vom Stack geholt und ’E [ 5° berechnet. Das Ergebnis ist die neue 
aktuelle Variable, 


Da der aktuelle Operator immer noch das Erreichen des Ausdruckendes ist, werden 
nacheinander auch noch Satz 2 und Satz 1 vom Stack geholt und die Operationen 


cD/EIS 
und zuletzt 

B+tC#D/ELS5 
durchgeführt. 
Wird anschließend das Programm bei 2346H fortgesetzt, ist kein weiteres Element 
des Ausdrucks mehr auf dem Stack und es wird zur aufrufenden Routine zuruckge- 
sprungen. 
Der Ausdruck wurde ausgewertet, das Ergebnis befindet sich im Arbeitsbereich 1 


des Kommunikationsbereichs (X-Register) und wird von dort der Variablen ’A’ 
zugewiesen. 


12. Funktionsableitungen 


Der BASIC-Interpreter unterstützt 16 arithmetische, davon die folgenden 7 
mathematischen Funktionen. 


Sinus (sin) {a) 
Exponentialfunktion te) (h) 
Arkus Tangens (arctan) (c) 
naturl.Logarithmus fln) (d) 
Cosinus {cos) te) 
Wurzelfunktion (x) {f} 
Tangens (tan) {g) 


Die Funktionen e-g können durch die Funktionen a-d ausgedruckt werden. 


0) a Pe in Pr ; P im Bogenmaĝ 
2 
(2) tan P= el i \P in Bogenmaß 


(3) VE = e/2Inx ; e = Eulersche Zahl 
{2.71 ee 


Wird (3) verallgereinert, ergibt sich! 


(4) = ein 


Zur internen Berechnung verwendet der BASIC-Interpreter arithretische Näherun- 
gen der Funktionen a-d. Alle anderen Funktionen werden mit Hilfe der Näherungen 
und den Funktionszusammenhängen {1)-(4) errechnet. 
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Sinus 


Nach den Gesetzen der Potenzreihenentwicklung kann der Sinus in einer Reihe 
ausgedruckt werden. 


oo u i Pi T72 
(5) sino = >; -D° -—————-—--- Entwicklungspunkt P o = 8 
n=8 (2nt1)! im Bogennaß 


Ifix}l Betrag fix) 


p! p3 i p? 


i 1:283 132238445 





Der BASIC-Interpreter nähert den Sinus bis zus 5. Glied. Der Winkel wird ia 
Vielfachen des Kreisbogens {t) angegeben. 


50 = amt ; \P in Bogennaß 
am (2m) (2m)? (27)? 


(5.2) sin (2m t) = 20t - ———— tt + t - m t7 4 
3! 5! 7 g! 








t 


Wird x in Grad angegeben, ist ebenfalls t zu errechnen. 


x 
5.3) t = w. = 
2Y 3680 





ix in Grad, \P im Bogenmaß, I t I x 1/4 


Zur Vorzeichenbestiseung bei Winkeln zwischen B und 368 Grad 
{ P1 < 2M) errechnet sich t: 











x 

(5,4) t = s Æ <x W 
349° 
1980 x 

5.5) t = — - ; 90 < x < 77W 
368° 3480 
x 3680 

5.6) t = S SS 3 2700. < x < 3I 
368° 3P 


Bei größeren Winkeln ist die Anzahl der ganzen Vielfachen eines Kreisbogens 
abzuziehen und anschließend ist wie oben zu verfahren. 


Die Elemente der einzelnen Reihenglieder sind auf vier Dezimalstellen genau. 


Der maximale Fehler der Näherung ist < 8.2080835 {für !t! < 1/4). So kann das 
Gesamtergebnis auf 5 Stellen genau angegeben werden. 


Exponentialfunktion 
Der BASIC-Interpreter berechnet die Exponentialfunktion e* für alle Werte 
-88 < x (9. 


Die Funktionsnäherung hat zwei Elemente. Das eine Element ist ein ganzzahliger 
Exponent zur Basis 2, das zweite eine Reihenentwicklung in 8 Gliedern. 


(6) e = 2x loe 


et (2x logel#ti)  ; ifix) j= Treppenfunktion 
größte ganze Zahl in fix), 
a<t<in2 bekannt als Integerwert. 


sp=2f% 109, el + 


(6.1) e* 


AD = Tet 
Hierbei beschreibt e't den Unterschied zwischen e* und dem nächstgrößeren ganz- 
zahligen Vielfachen von 109, e als Exponent. 

(6.3) t 
{6.4) x 


-x +|Ex 109, ef inż + In2 
In teti2ltx 109, eJ +1) 
-t+1n2 [ix ton, eil+1) 0< tin 


In e* 


Die ganzzahlige Potenz zur Basis 2 kann direkt bestimmt werden {binäre Rechen- 
systeme). 
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Die Potenzreihe fur das zweite Element lautet allgemein! 


(6.5) et =i + > 


n= (nti)! 


(-t Br 





t2 
1 - Xx e aa E 


112 


Die gefundenen Ergebnisse aus (6.5) und (6.2) ergeben e* auf 5 Dezinalstellen 
genau. 


Arkustangens 


Die Näherung des Inversen Tangens basiert‘ auf der Reihenentwicklung bis zum 9. 
Glied. 





„anti 
(7.1) arctan x = >: Io —— 
{Zn + 1) 
x3 x x? 
= X = — + - — BEER E 
3 5 7 


Bei negativen Eingangswerten wird nit dem Betrag von x gerechnet und anschlies- 
send das Ergebnis invertiert. Für Werte x > i ist die Näherung für 1/x zu er- 
rechnen. 

Das Ergebnis ergibt sich aus! 


7 
{7.2) arctan x = —— - arctan ———- sixil > i 
2 x 


Fur die Werte !x! < 1 ergibt sich das Ergebnis direkt aus der Reihenentwick- 
lung. Die Koefizienten 5-7 wurden so korrigiert, daß der maximale Fehler 8.024 
{im Bogenmaß) beträgt. 


(7.3) arctan x = x - 0.33331 x3 + 0.199936 x3 - 0.142089 x7 + 
8.186563 x? - 0.0752896 xil + 0.0429096 x13 - 
8.81416157 x15 + 0.08296423 x17 
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Naturlicher Logarithaus 


Die Näherung des natürlichen Logarithmus wird aus drei Gliedern der zugehörigen 
Reihe errechnet. 





i+ta 1 

(8.1) In (— > _— _ zzntl ; för lai< i 
l-a n ntj 
ita 

(8.2) % = --—--— s für lal <1 
t-a 


Daraus ergibt sich: 


x-i 1 x-1 Í x-1 
I] 


xti 3 xti 5 xti 


(8.3) Inx=21 





Diese Reihe konvergiert für Werte x < 1. Daher muß durch eine Skalierung x in 
diese Bereiche übertragen werden. 


(8.4)  x=y MM 1/249 <1, nE bla 


Der Skalierungsfaktor ist die nächsthöhere Zweierpotenz mit ganzzahliggem Expo- 
nenten. 


(8.5) Inx=iInty2P)=iny+n|1n 
In y 
{8.6) Iinx=-t———+tn)1In2 
In 2 
y 
in {---——--} 
in 2 ln {ln 2) 
= in 2 {mn + + 0) 
in 2 In 2 


Die Konstanten dieser Formel werden intern fest angegeben! 
In 2 = 8.878789? 
In (In 2) 


9,5 


In 2 


Der skalierte Wert ’A’ kann mit der Näherung (8.8) errechnet werden. 





y 
---- - í 
2 ln 2 1 1 
(8.8) A= bt At Aa) 
In 2 y 3 5 
---- - Í 
ln 2 


{8.9 ln x = 8.707092 (A-0.5+tpn) 


Die Genauigkeit wird mit vier Stellen angegeben. Fur Werte von x in der Nähe B 
bzw. für sehr große Werte kann diese Genauigkeit nicht erreicht werden. 
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13. Unterroutinen des MSIC-Interpreters 


Der BASIC-Interpreter der LASER-Computer 118, 218, 3i@ und des VZ200 besteht 
aus einer großen Anzahl in sich abgeschlossener Routinen, die zur Ausführung 
bestimmter Funktionen von der Ausführungssteuerung aufgerufen werden. Viele 
dieser Routinen lassen sich auch von Maschinenprogramsen nutzen und vereinfa- 
chen so die Programserstellung. 


In diesem Kapitel werden eine Reihe dieser Routinen beschrieben und anhand von 
Aufrufbeispielen ihre Einbindung in Maschinenprogramme gezeigt. 


Wichtig bei der Nutzung jeder einzelnen Routine ist die genaue Kenntnis der 
Eingangs- und Ausgangs-Voraussetzungen. Wo sind die Eingangsparameter bereitzu- 
stellen, in welchem Datenformat mussen sie bereitgestellt werden und wo und wie 
wird das Ergebnis bereitgestellt? Das sind nur einige der aufkommenden Fragen. 
Es ist auch wichtig zu wissen, welche Register von der aufzurufenden Routine 
verändert werden, damit man sie rechtzeitig vorher sichern kann. 


In diesen Zusammenhang sei auch nochmals daran erinnert, daß bei Anschluß eines 
Diskettensystems das Registerpaar IY nicht verändert werden darf. 


Ein-/Ausgabe-Rout inen 


In diesem Abschnitt werden Routinen beschrieben, die sich mit der Kommunikation 
des Interpreters mit seiner Umwelt befassen, 


Wie können Zeichen von der Tastatur eingelesen, auf dem Bildschirm dargestellt 
oder auf einen Drucker ausgegeben werden? Wie kann man aus Maschinenprogrammen 
heraus das Kassetten-Interface nutzen oder Töne auf dem kleinen eingebauten 
Lautsprecher ausgeben? f 


Einlesen von der Tastatur 


Selbstverständlich bleibt es Ihnen unbenommen, die Tastaturmatrix selbst auszu- 
werten. Es stehen aber auch ROM-Routinen zur Verfügung, die Ihnen diese Arbeit 
abnehmen. 


CALL 2BH Tastatur auswerten 


Von dieser Routine wird die Tastaturmatrix einmal ausgewertet und das Ergehnis 
übergeben. Bei gedruckter Taste wird der ASCII-Code ermittelt und ins A-Regi- 
ster eingetragen. 


Es wird sofort in die aufrufende Routine zurückgesprungen, unabhängig davon, ob 
eine Taste betätigt wurde oder nicht. Wollen Sie mehrere Zeichen direkt hinter- 
einander einlesen, so aussen Sie für eine Entprellung selbst Sorge tragen. 


Verändert wird das Registerpaar DE und das A-Register, in dem das Ergebnis 
übermittelt wird. 


Beispiel: 


LD BC, GBBH Möglichkeit der 


CALL 68H }Entprellung 

PUSH DE sDE sichern 

CALL  2BH įTastatur auslesen 

OR A wurde Taste betätigt? 

JP Z NEIN ‚==> zum Nein-Zweig 
JA POP DE ıJa-Zweig 


Das A-Register enthält beim Rücksprung den ASCII-Code der gedrückten Taste. 
Wurde keine Taste betätigt, so ist das A-Register leer (BOH). In obigen Bei- 
spiel wird die Leseroutine aufgerufen und, abhängig davon, ob eine Taste betä- 
tigt wurde oder nicht, entweder zur ’NEIN’-Routine verzweigt oder das Programm 
bei der ’JA’-Routine fortgesetzt. 


’CALL 2BH’ bietet sich immer dann an, wenn man während des Programmablaufs im 
Vorbeigehen schauen will, ob jemand an der Tür geklingelt hat, d.h. eine Taste 
betätigt wurde. 


CALL 49H Warten auf eine Tastatureingabe 


Hier wird Ihnen die Prüfung abgenommen, ob eine Taste betätigt wurde oder 
nicht. Sie erhalten die Kontrolle erst dann zurück, wenn jemand tatsächlich 
eine Taste gedrückt hat. Ansonsten entspricht die Routine dem Aufruf ’CALL 
2BH’, die intern auch benutzt wird. 


Beispiel: Auf eine ausgegebene Frage soll der Nutzer mit ’J’ = Ja oder 
’N’ = Nein antworten. 
Das Programm wartet auf die Betätigung einer dieser beiden 
Tasten und verzweigt entsprechend zur Ja- oder Nein-Routine. 


LES PUSH DE DE sichern 
CALL 49H iwarten auf Tastendruck 
POP DE ıDE wiederherstellen 
cP P ;’J’-Taste betätigt? 
JR Z, JÀ j==> zum JA-Zweig 
EP N? iwar es die ’N’-Taste? 
JR NZ, LES sauch nicht, weiter warten 
NEIN : jNein-Zweig 
JA $ iJA-Zweig 


Die bei ’CALL 2BH’ oder ’CALL 49H’ eingelesenen Zeichen werden nicht auf dem 
Bildschirm dargestellt. Das mussen Sie mit einer der nachfolgenden Ausgaberou- 
tinen ggf. selbst bewerkstelligen. 


CALL 3EZH _ Einlesen einer Zeile 


Komfortabler als von den beiden vorherigen Aufrufen werden Sie von der Routine 
bei JE3H bedient. 


Dort wird eine vollständige Zeile von der Tastatur eingelesen und auf dem Bild- 
schirm dargestellt. Die eingelesene Zeile wird anschließend im Ein-/Ausgabepuf- 
fer des Kommunikationsbereichs zur weiteren Verarbeitung bereitgestellt. 


Die Darstellung auf dem Bildschirm beginnt an der augenblicklichen Cursor-Pgsi- 
tion und es wird automatisch das blinkende Cursorzeichen ausgegeben. 


Eine Eingabezeile kann maximal 64 Zeichen umfassen und ist mit der <RETURN- 
Taste oder den <CTRL-BREAK>-Tasten abzuschließen. 


Da diese Routine u.a. zum Einlesen von BASIC-Programmen benutzt wird, sind auch 
nur die darin gültigen Zeichen zulässig (Buchstaben, Ziffern, Sonderzeichen). 
Wollen Sie auch Blockgrafikzeichen oder invertierte Zeichen einlesen, 50 mussen 
Sie diese bei der Eingabe in Anführungszeichen einschließen. Bei Eingabe fal- 
scher Zeichen erscheint der Text "SYNTAX ERROR" und die Eingabe kann wiederholt 
werden. 


Zur Funktion dieser Routine ist es erforderlich, daß die Interrupts eingeschal- 
tet sind (EI = enable interrupts). 


Nach einer Eingabe steht der eingelesene Text im Ein-/Ausgabepuffer ab Adresse 
7IESH. Das Registerpaar HL zeigt auf das davorliegende Byte (79E7H). Das Text- 
ende ist durch ein Zeichen @@H gekennzeichnet. 


Anhand des Carry-Flags können Sie ermitteln, ob der Text sit <RETURN> oder 
<CTRL-BREAK> abgeschlossen wurde. 


Carry = 0 mit <RETURN> abgeschlossen 
Carry = { mit <CTRL-BREAK> abgeschlossen 


Alle Register werden von der Routine verändert. 


Beispiel: Eine Textzeile ist von der Tastatur einzulesen und ins Feld 
’TEXT’ zu übertragen. Register B soll anschließend die Text- 
länge anzeigen. 


EI sInterrupts einschalten 
LES (AL  JEJH Zeile einlesen 

JR CLES SBREAK - noch einmal 

INC HL HL auf Putferanfang 

LD DE, TEXT ;DE = Textbereich 

LD B,8 sZeichenzähler = 8 
TRF LD As (HL) şi Zeichen aus Puffer laden 

OR A ;Textende ? 

JR Z,FINI Ja, fertig 
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LD {DE),A Zeichen in Textbereich 


ING HL Puf feradresse + i 
INC DE sTextbereich + I 
INC B sleichenzähler + 1 
JR TRF ‚nächstes Zeichen 
FINI r 
TEXT DEFS 64 ;Textbereich 


Bei FINI steht die eingegebene Zeile im Feld ’TEXT’ 
Register B enthält die Textlänge. 


Zeichen auf dea Bildschira darstellen 





Drei Routinen bieten sich an, Text auf dem Bildschirm darzustellen. Bei J3AH 
können Sie ein einzelnes Zeichen ausgeben, bei 2BA7H und 2B75H jeweils eine 
ganze Zeichenkette. 


Der Bildschirmspeicher für die Textdarstellung befindet sich bei 7@BBH-7IFFH. 
Sie können auch direkt etwas in diesen Bereich schreiben, sollten aber die 


Bildschirm-Synchronisation dabei beachten; doch auch diese Möglichkeit wird in 
einem Beispiel dargestellt. 


CALL 3S3SAH Ein Zeichen darstellen 


Das in A-Register bereitgestellte Zeichen wird an der Cursor-Position auf dem 
Bildschirm dargestellt. Der Cursor wird um ein Zeichen vorgesetzt. 


In A-Register sind dabei die normalen ASCII-Codes zu verwenden, nicht die 
LASER-internen Bildschirm-Codes. 


Neben den alphanumerischen Zeichen werden auch Steuerzeichen der ASCII-Codeta- 
belle erkannt und die entsprechenden Bildschirafunktionen ausgeführt. 
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OBH o. 18H Cursor eine Stelle nach links 


OIH o. IM ‘ Cursor eine Stelle nach rechts 

BAH Cursor eine Zeile nach unten 

BDH Cursor an den Anfang der nächsten Zeile 

15H Ein Leerzeichen einfügen (INSERT) 

13H Cursor eine Zeile nach oben 

ICH Cursor in die linke obere Ecke 

10H Cursor an den Zeilenanfang 

IFH Bild löschen 

7FH Zeichen an der Cursorposition löschen 
(RUBOUT) 


Registerinhalte werden nicht verändert, sie werden von der Routine beim An- 
sprung gesichert und beim Rücksprung wieder restauriert. 


Beispiel: An der Cursorposition soll der Buchstabe ’A’ dargestellt 
werden. 
LD Ar A Zeichen laden 
(AL  J3AH sund ausgeben 
CALL 28A7H Eine Zeile ausgeben 
oder 


CALL ZB75H 


Haben Sie mehr als ein Zeichen auszugeben, so könnten Sie den Aufruf bei 33AH 
in einer Schleife mehrfach durchlaufen. Die Routinen bei 28A7H und 2B75H nehmen 
Ihnen diese Arbeit ab und geben einen vollständigen Text mit einen einzigen 
CALL-Aufruf auf den Bildschirm aus. 


Die Textanfangsadresse muĝ im HL-Registerpaar bereitgestellt werden, das Text- 
ende ist mit B@H zu kennzeichnen, bei 2BA7H wird auch BDH als Textende erkannt, 


Die Routine bei 28A7H benutzt zur Textaufbereitung den String-Zwischenspeicher 
in Komsunikationsbereich und den BASIC-Stringbereich am Speicherende. Sie soll- 
ten daher diese Routine nur dann benutzen, wenn Kommunikations- und 
Stringbereich von Ihrem Maschinenprograms sauber verwaltet werden. 
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Die Routine bei 2B75H führt eine direkte Ausgabe durch und unterliegt nicht den 
0.3. Restriktionen. Mit dieser Routine wird Ihnen noch ein weiterer Komfort 
geboten. Durch einfache Umschaltung eines Bytes können Sie die Ausgabe vom 
Bildschirm auf einen angeschlossenen Drucker oder sogar auf den Kassettenrekor- 
der umleiten. Dies ist das Byte 789CH im Kommunikationsbereich. 


QGH = Bildschirm 
BIH = Drucker 
80H = Kassette 


Vergessen Sie aber anschließend nicht, dieses Byte wieder auf die Bildschirm 


ausgabe zu setzen. Sonst wandern evtl. spätere Systemausgaben auch auf das an- 
dere berät. 


Beispiel: Der Bildschirm soll gelöscht und anschließend der Text 
’MEIN LASER IST PHANTASTISCH’ ausgegeben werden. 


LD HLYTEXT ;Textadresse laden 


CALL  2B75H iText ausgeben 
TEXT DEFB 1FH Bildschirm löschen 
DEFM "MEIN LASER IST PHANTASTISCH’ 
DEFE 98 ıTextendekennung 
CALL 1C9H Löschen des Bildschiras 


Den Bildschirm sauber bekommen Sie einfach mit einem CALL iC9H. Intern ge- 
schieht dabei nicht mehr, als die Steuerzeichen iDH (Cursor an den Bildanfang) 
und iFH (Bild löschen) mit zwei aufeinanderfolgenden CALL 33AH auszugeben. 


Beispiel: 


CALL  1CH sBildschirm löschen 
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Direktausgabe in den Bildschiraspeicher 


Wollen Sie direkt in den Bildschirmspeicher {7BBBH-7IFFH) schreiben, so dürfen 
Sie nicht den normalen ASCII-Zeichensatz verwenden. Das auszugebende Zeichen 
muß in der LASER-internen Verschlüsselung bereitgestellt werden, dafür können 
aber auch Biockgrafikzeichen aller Farben direkt ausgegeben werden {siehe 
Kapitel 5). Das Verfahren eignet sich auch für die Ausgabe in der hochaufläsen- 
den Grafik (7BB0H-77FFH). Beachten Sie dabei aber, daß jedes Byte die Informa- 
tion für vier Pixels enthält. 


Eine solche Ausgabe sollte jedoch mit dem Bildgenerator synchronisiert werden, 
da ansonsten die Bildqualität darunter leidet (bei häufigen Ausgaben wird das 
Bild durch Querstriche gestört). 


Eine Möglichkeit der Synchronisation bietet der RAM-Erweiterungsausgang der 
Interrupt-Service-Routine bei 787DH. Dort können Sie einen Sprung "CI xx x’ zu 
einer eigenen Routine einsetzen. Nach Ausgabe Ihres Textes in dieser Routine 
kehren Sie mit einem einfachen RETURN {C9H) in die normale Interrupt-Service- 
Routine zurück. 


Ein andere Möglichkeit, bei ausgeschaltetem Interrupt (DI), bietet die Abfrage 
des Bits 7 im Ein-/Ausgabebereich bBBBH-bFFFH (siehe Kapitel 4). Dieses Bit 
ist direkt mit dem Vertikal-Sync-Signal des Bildgenerators verbunden. 


Beispiel: Am Anfang der 3. Zeile des Bildschirms soll der Buchstabe 
>A’ ausgegeben werden. 


DI ‚Interrupts ausschalten 

LD HL, 7B4BH 13. Zeile adressieren 

LD B,’A’ ‚auszugebendes Zeichen laden 
WARTEN LD À, (6800H) ;Vertikal-Sync prüfen 

OR A 

JP P, WARTEN ‚wenn Bit 7 = 8, warten 

LD {HL),B Zeichen ausgeben 


= 1% - 


Zeichen auf den Drucker ausgeben 


Aus einem Maschinenprogramm heraus können ROM-Routinen benutzt werden, Zeichen 
auf einen angeschlossenen Drucker auszugeben. Eine dieser Möglichkeiten wurde 
bereits bei der Bildschirmausgabe mit dem CALL 2875H und der Umschaltung des 
Flags bei 789CH besprochen. Damit können ganze Textzeilen an den Drucker uber- 
tragen werden. Eine weitere Möglichkeit wird nachstehend beschrieben. 


Bei einen Drucker der Marke "Seikosha GPiß®" (siehe Kapitel 8) können auch Zei- 
chen der Blockgrafik und invertierte Textzeichen gedruckt werden. 


Die Routine zur Ausgabe einzelner Zeichen wartet automatisch auf das "Fertig- 
werden” des Druckers. Sie haben jedoch auch selbst die Möglichkeit, den Drucker- 
status zu erfragen. 


CALL. 3BH Ein Zeichen drucken 


Das im A-Register übergebene Zeichen {im ASCII-Code) wird auf einen angeschlos- 
senen Drucker ausgegeben. 


Is 6erätesteuerblock {Device Control Block) bei 7825H-782CH wird automatisch 
ein Zeilenzähler mitgeführt, der bei 66 Zeilen jeweils auf 8 zuruckgesetzt 
wird. Diese éb Zeilen pro Seite sind eine Systemvorgabe bei der Initialisierung 
des Kommunikationsbereichs und stehen bei Adresse 7828H (Anzahl Zeilen/Seite + 
1). 66 Zeilen/Seite entspricht 11 Zoll und damit dem amerikanischen Blattfor- 
mat. Das deutsche DIN A4 - Format hat ca. 12 Zoll, d.h. bei deutschem Papiermaß 
sollten Sie, wenn Sie die Blattvorschubsteuerung nutzen wollen, diesen Wert auf 
72 leilen/Seite (+1 = 4M) ändern. 


Neben ganz normalen ASCII-Textzeichen können auch Steuerzeichen an den Drucker 
übertragen werden, z.B. Escape-Sequenzen zur Schriftwahl (siehe Drucker-Bedie- 
nungsanleitung) 


Folgende Steuerzeichen werden bereits vom Drucker-Treiber erkannt und ausge- 
führt: 


BOH = Der Druckerstatus wird ermittelt und im 
Bit 8 des A-Registers zuruckgegeben. 
Bit B = 8 - der Drucker ist druckbereit 
Bit B = 1 - der Drucker ist nicht bereit 
Das Zero-Flag wird entsprechend gesetzt. 
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BBH 


BCH 


BDH 


BAH 


CALL 5C4H 


Absoluter Blattvorschub. 
Der Drucker wird auf den Anfang der nächsten 
Seite vorgesetzt, 


Bedingter Blattvorschub. 

Der Drucker wird nur dann an den Anfang der 
nächsten Seite vorgesetzt, wenn er nicht 
bereits am Anfang einer Seite steht 
(Zeilenzähler bei 7829H = ®). 


Wagenrucklauf (Carriage Return - CR) 

Es wird ein Wagenrücklauf-Zeichen {BDH) und 
ein Zeilenvorschub-Zeichen (BAH) ausgegeben. 
Achtung: Sie sollten Ihren Drucker so ein- 
stellen, daß er nicht automatisch nach einem 
Wagenrucklauf einen Zeilenvorschub ausführt 
(siehe Drucker-Bedienungsanleitung). 

Ansonsten wird immer eine Leerzeile eingefügt. 


Zeilenvorschub. 


Wird vor der Ausführung intern in ein BDH 
umgewandelt. 


Druckerstatus ermitteln 


Durch Aufruf dieser Routine kann der Druckerstatus direkt abgefragt werden (nur 
die ’BUSY’-Leitung wird überwacht). 


Im Bit B des A-Registers wird der Status übergeben, das ZERO-Flag wird entspre- 


chend gesetzt. 


Bit®=@ (Z-Flag = 1) - Der Drucker ist bereit, 
Bit @= 1 {2-Flag=@) - Der Drucker ist nicht bereit, 
Beispiel: Der Text ’TEST EINER DRUCKERAUSGABE’ soll auf dem Drucker 


ausgegeben werden. 
Ist dieser nicht druckbereit, soll stattdessen auf dem 
Bildschirm der Text "DRUCKER NICHT BEREIT’ erscheinen. 


zn. 18 - 


CALL  5C4H sDruckerstatus prüfen 
JR NZ FEHLER nicht bereit 
LD HL, DRTEXT Text adressieren 


LOOP LD As (HL) ;Textzeichen laden 
OR A +Textende? 
JR I,FERTIG ja; fertig 
CALL  JBH Zeichen drucken 
INC HL snächstes Zeichen adressieren 
© JR LOOP sund ausgeben 
FERTIG 


FEHLER LD HL,FETEXT ıFehlertext adressieren 
CALL 2875H sauf Bildschirm darstellen 


DRTEXT DEFM "TEST EINER DRUCKERAUSGABE’ 


DEFB 8 
FETEXT DEFM DRUCKER NICHT BEREIT’ 
DEFE B 


Die Kassetten - Ein-/Ausgabe 


Die Kommunikation mit einem angeschlassenen Kassettenrekorder erfolgt uber den 
Ein-/Ausgabebereich G8BOH-6FFFH (siehe Kapitel 4). über Bit b wird beim Lesen 
die Information vom Rekorder übernommen, uber Bit 1 und 2 erfolgt die Ausgabe 
auf den Kassettenrekorder. Im Gegensatz zu Bildschirm und Drucker erfolgt die 
übertragung seriell, d.h. für ein zu schreibendes oder zu lesendes Zeichen 
= 1 Byte) mussen B Bits hintereinander geschrieben oder gelesen werden. 


Es stehen eine Reihe von Routinen zur Verfügung, die Sie bei eigener Bearbei- 
tung der Kassetten-Schnittstelle nutzen können. Das Standardformat einer Auf- 
zeichnung können Sie dem Kapitel 8, Abschnitt "Der Kassettentreiber" entnehmen. 


Da die Bitaufzeichnung sehr zeitkritisch ist, ist es wichtig, vor einer Bear- 


beitung {Lesen oder Schreiben) auf alle Fälle die Interrupts auszuschalten 
{DI), ansonsten übertragen Sie keine brauchbaren Informationen. 
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Schreiben auf die Kassette 
CALL 3511H Ein Byte auf die Kassette schreiben 


Mit dieser Routine wird ein Bute bitseriell auf den Kassettenrekorder ausgege- 
ben. Das auszugebende Byte ist im A-Register bereitzustellen. 


CALL 3558H Dateivorspann auf Diskette schreiben 


Hiermit wird ein vollständiger Dateikopf auf den Kassettenrekorder ausgegeben, 
Dieser besteht aus den Synchronisationsbytes (255 x 80H), dem Vorspann (5 x 
FEH), dem Dateikenner (F@H = BASIC, FiH = Binärdatei, F2H = Datendatei) und dem 
Dateinamen (max. 15 Zeichen). 


Der Dateiname ist in einen eigenen Feld, in Anführungsstriche eingeschlossen, 
bereitzustellen. HL muß die Anfangsadresse dieses Feldes enthalten. Der Datei- 
kenner ist im C-Register zu übergeben. 


Ist beim Rücksprung das tarry-Bit gesetzt, so wurde der Aufzeichnungsvorgang 
durch die <CTRL-BREAK>-Tasten unterbrochen. 


Beispiel: Der Speicherbereich von B@BBH bis 8FFFH soll als Binärdatei 
mit dem Namen "TEST" auf den Kassettenrekorder ausgegeben 
werden. Eine Prüfsumme soll für eine spätere Ladekontrolle 
hinter die Daten geschrieben werden. 


DI Interrupts ausschalten 

LD COF 1H iKenner für eine Binärdatei 
LD HL, NAME ‚Dateinamen adressieren 

CALL 3558H ;Dateivorspann ausgeben 

JP C, BREAK ıBREAK-Taste betätigt 

LD BC, 400 seine kleine Pause dazwischen 
CL 68H 

CALL  JAESH ıBREAK-Taste betätigt? 


JP C, BREAK jja! 
LD 1X, 7823H Prufsummenbytes adressieren 
LD HL, SOEH ;Startadresse laden 


LD AL LSB Startadresse auf Kassette 
CAL  SZ511H schreiben 
LD (IX), A sund in Pruefsumme übernehmen 
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XOR A ıMSB Prufsumme = 8 
LD (IX+1),À 


LD ArH ıMSB der Startadresse 

tAL  3511H jauf Kassette ausgeben 

CALL  S38BEH jund auf Prufsumme addieren 

EX DE+HL ;Startadresse in DE 

LD HLıBFFFH jEndadresse laden 

ING HL j+ 1 für Aufzeichnung 

LD Al ıLSB Endadresse 

ALL  3511H sauf Kassette ausgeben 

CALL  JBBEH jund auf Prufsumme addieren 

LD ÅH ıMSB Endadresse 

CALL 3511H sauf Kassette ausgeben 

CALL J388EH sund auf Prufsumme addieren 
LOOP CALL — JAESH ;BREAK-Taste betätigt? 

JP €, BREAK jja! 

LD Â, (DE) Byte des Speicherbereichs laden 

INC DE ;Speicheradresse + 1 

CALL  3511H Byte auf Kassette ausgeben 

CALL  J88EH sund auf Prufsumme addieren 

RST 18H Ende erreicht ? 

JR NZ, LOOP nein, nächstes Byte 

LD A (IX) LSB der Prufsumme 

CAL  3511H sauf Kassette ausgeben 

LD A (IX+ti) ıMSB der Prüfsumme 

CALL 3511H sauf Kassette ausgeben 

EI Interrupts wieder einschalten 
BREAK z 
NAME DEFM "TEST" Dateiname 


In obigen Beispiel wurden einige Routinen aufgerufen, die bisher nicht be- 
schrieben sind. 


- 19 - 


CALL 3ZAE8SH BREAK-Taste abfragen 

In dieser Routine wird geprüft, ob die <CTRL>- und <BREAK>-Tasten gleichzeitig 
betätigt wurden (BREAK-Funktion). Ist dies der Fall, wird das CARRY-Bit ge- 
setzt, 

CALL 388EH Prüfsumme erstellen 

Diese Routine wird von der Kassetten-Aufzeichnungsroutine und der -Leseroutine 
benutzt, um die Prüfsumme einer Aufzeichnung zu ermitteln. Dazu stehen im Kom- 
minikationsbereich die beiden Bytes 7823H und 7824H zur Verfügung, die mit dem 
Registerpaar IX zu adressieren und zu initialisieren sind. 

RST 18H Vergleich HL sit DE 

Hier wird das Registerpaar HL mit den Registerpaar DE logisch verglichen. Das 
CARRY- und das ZERO-Flag werden entsprechend dem Ergebnis des Vergleichs ge- 


setzt. 


Bei der Behandlung der RESTART-Prozeduren wird diese Routine ausführlich be- 
schrieben. 


Lesen von der Kassette 
CALL 3775H Ein Byte von Kassette lesen 


Hiermit wird ein einzelnes Byte von der Kassette gelesen und im A-Register zur 
Verfügung gestellt. Die Registerpaare BC, DE und HL bleiben unverändert. 


Bei Lesefehlern wird das CARRY-Bit gesetzt. 


Vor dem Lesen eines Bytes muß die Leseroutine auf eine gültige Aufzeichnung 
synchronisiert werden. 


Bein Lesen mehrerer Bytes ist der 488 Baud Rhythmus einzuhalten. 
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CALL 35Ei1iH Datei auf der Kassette suchen 


Mit dieser Routine wird der Anfang einer Datei auf der Kassette ermittelt und 
die Leseroutine auf die Aufzeichnung synchronisiert. 


Der Name der zu suchenden Datei ist im Kommunikationsbereich ab Adresse 7AB2H 
zu hinterlegen und mit BGH abzuschließen. Dazu kann auch die Routine bei I58CH 
benutzt werden, der die Anfangsadresse des Namensfeldes in HL zu übergeben ist. 


Wird eine Datei des angegebenen Namens auf der Kassette gefunden, so wird die 
Dateikennung ins Feld 7AB2H übertragen und kann dort abgeprüft werden. 


Während des Suchvorgangs werden in der letzten Bildschirmzeile Meldungen über 
den Suchstatus ausgegeben: 


WAITING - es wurden noch keine Synchronisationsbytes 
gefunden. 


FOUND X: Dateiname 


Eine Datei mit dem angegebenen Namen wurde 
gefunden. ’X:’ = Dateikenner 
T = Text-Datei (z.B. BASIC-Programm) 
B = Binär-Datei (z.B. Maschinen-Programs) 
D = Daten-Datei 


Entspricht der angegebene Namen nicht der gesuchten Datei, so wird der Suchvor- 
gang automatisch fortgesetzt und es erscheinen ggf. mehrere FOUND-Meldungen 
hintereinander. 


Die o.a. Meldungen können unterdrückt werden, indem im Byte 784CH des Komaunika- 
tionsbereichs ein Wert ungleich 8 eingetragen wird. 


Wird während des Suchvorgangs die BREAK-Taste betätigt (CTRL-BREAK), so wird 
nicht zum aufrufenden Programs, sondern zur BASIC-Hauptschleife zurückgesprun- 
gen. E 


Beispiel: Der im vorherigen Beispiel aufgezeichnete Speicherbereich 
soll wieder eingelesen werden. Die Prufsumme ist zu ermitteln 
und am Aufzeichnungsende zu überprüfen. Die Meldungsausgabe 
soll unterdrückt werden. 


- i- 


SUCH 


LOOP 


FEHLER 


DI 
LD 
LD 
LD 


CALL 
LD 
CP 
JR 
LD 
CALL 
JP 
OR 
SBC 
JP 


POP 
CALL 
JP 
LD 


INC 
DEC 
LD 
OR 
JR 
CALL 
CP 
JP 
CALL 


Åi 
{784CH),A 
HL, NAME 
J58CH 
35E7H 

Ay (7ADZH) 
BFIH 

NZ, SUCH 
1X, 7823H 
JBA8H 

Ci FEHLER 
A 

HL,DE 

C FEHLER 
HL 

BC 

37T5H 
C„FEHLER 
(DE),A 
JBBEH 

DE 

BC 

Art 

B 
NZ,LOOP 
3775H 
(IX) 

NZ, FEHLER 
3775H 
{IX+1) 
NZ, FEHLER 


? "TEST"? 
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Interrupts ausschalten 
;Meldungsausgabe unterdrücken 


Dateinamen in Kommunikations- 
bereich übertragen 

‚Datei auf Kassette suchen 
Name gefunden, Kennung prüfen 
‚Ist es eine Binär-Datei? 
nein, weitersuchen 
;Prufsummenbytes adressieren 
;Start- und Endadresse lesen 
jLesefehler! 

Carry löschen 

‚Programmlänge ermitteln 
;Startadresse > Endadresse 
Länge in BC übertragen 


‚Byte von Kassette lesen 
jLesefehler 

‚in Speicherbereich übertragen 
sund auf Prufsumme addieren 
Speicheradresse + { 

sLänge - 1 

8? 


‚nein, weiterlesen 

LSB der Prufsumme lesen 

;= der errechneten ? 

jnein, Ladefehler 

MSB der Prüfsumme lesen 

‚= der errechneten ? 

nein, Ladefehler 

‚Interrupts einschalten, fertig! 


Dateiname 


In Beispiel wurden zwei Hilfsroutinen benutzt, die noch kurz erläutert werden 
sollen. 
CALL 358CH Dateinamen übertragen 


Die Routine dient dazu, einen im Programa befindlichen Dateinamen in den Kommu- 
nikationsbereich ab Adresse 7A9DH zu übertragen. 


Der Dateiname ist vor dem Aufruf mit HL zu adressieren und muß in Anfuhrungs- 
striche eingeschlossen sein. 
CALL 3868H Start- und Endadresse laden 


Wurde die richtige Datei auf der Kassette gefunden, so kann hiermit die Start- 
und Endadresse des Speicherbereichs von der Kassette gelesen werden. 


Beim Rucksprung enthält DE die Startadresse und HL die Endadresse + 1 einer 
Text- oder Binärdatei. 


Die Prüfsumme wird von dieser Routine initialisiert. 


Ist beim Rücksprung das CARRY-Flag gesetzt, so trat ein Lesefehler auf. 


Lautsprecher - Ausgabe 
Den kleinen eingebauten Lautsprecher der LASER-Computer und des VZ208 können 
Sie aus Maschinenprogrammen heraus auch ansprechen. 


Dieser Lautsprecher ist, wie eingangs bereits beschrieben, nit den Bits Bund 5 
des Ein-/Ausgabebereichs S8B@H-4FFFH fest verdrahtet. 


Bit 5 Bit @ 
' ! 
! ! 


! ! Lautsprecher 
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Diese beiden Bits mussen immer komplementär sein. Durch Umschalten der Bits in 
einer bestimmten Frequenz wird ein Ton erzeugt. Sie brauchen jedoch nicht zu 
befürchten, dies aus Maschinenprogrammen heraus selbst durchführen zu mussen. 
Zwei ROM-Routinen erlauben es, entweder einen einzelnen Ton oder eine ganze 
Melodie mit einem Aufruf auszugeben. 


CALL 345CH Einen einzelnen Ton ausgeben 


Reia Aufruf ist im Registerpaar HL die Pulslänge {gemäß Tabelle ab 2CFH) und im 
Registerpaar BC die Tondauer anzugeben. 


Alle Register werden verändert. 


Zur Erzeugung eines sauberen Tones sollten die Interrupts ausgeschaltet werden. 


Beispiel: : 
DI Interrupts ausschalten 
LD HL, BABH sPulslänge laden 
LD BC, 6 ;Tondauer laden 
CALL  345CH Ton ausgeben 
EI iInterrupts wieder einschalten 


Es wird ein hoher kurzer Piepton ausgegeben. 
Je höher der Wert in HL ist, umso dunkler wird der Ton. Die Tondauer ist auch 
von der Tonhöhe abhängig. Um bei zwei unterschiedlichen Tönen die gleiche Ton- 
dauer zu erzielen, muĝ beim höheren Ton ein größerer Wert für BC gewählt wer- 
den. 
CALL 2BF5H Eine Melodie spielen 


Diese Routine erlaubt das Abspielen einer vollständigen Melodie mit einem Auf- 
ruf. Die einzelnen Noten sind dabei wie bei einem BASIC-SOUND-Befehl anzugeben! 


Ton,Länge; Ton,Länge; Ton,Länge; sueseres 
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Die Melodie ist als ASCII-String im Programm bereitzustellen und mit dem HL- 
Registerpaar zu adressieren. Ton und Längenangabe sind durch Komma zu trennen, 
mehrere Töne können, durch Semikolon getrennt, hintereinander angegeben werden. 


Beispiel: Spielen einer kleinen Melodie 


LD HL,MELO Melodie-String adressieren 
CALL  JBF5H Melodie spielen 


MELO DEFM  °16,2521,2521,2523, 2523, 2525, 3326, 13° 
DEFM ’28, 2526, 2525,2323,2523, 2521,4° 


Umwandlungs - Routinen 





Datentyp-Uswandlung 

Eine Reihe von Unterroutinen dient lediglich dazu, vor einer Verarbeitung die 
numerischen Daten is richtigen Typ bereitzustellen, d.h. von einem Datentyp in 
einen anderen umzuwandeln. 

Die Umwandlungsroutinen erwarten den umzuwandelnden Wert is Arbeitsregister 1 
des Kommunikationsbereichs {X-Register) und den Datentyp dieses Wertes im Typ- 
Flag bei Adresse 7BAFH. 

Das Ergebnis wird wieder in Arbeitsbereich 1 zur Verfügung gestellt, Das Typ- 
Flag 78AFH enthält nach der Umwandlung das Kennzeichen des neuen Datentyps. 
CALL ØA7FH Fließkommazahl in Integer 


Der Inhalt des Arbeitsbereichs i wird von einer Variablen einfacher oder dop- 
pelter Genauigkeit in eine Ganzzahl (Integer) umgewandelt. 


Alle Register werden verändert. 
Eine Rundung findet nicht statt. 
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Beipiel:! Der Wert 2.8853? soll vom Typ "einfache Genauigkeit" in eine 
Ganzzahl umgewandelt werden. 


LD 


LD 
LDIR 
LD 
LD 
CALL 
LD 
LD 


AWERT DEFB 
DEFB 
DEFB 


ZWERT  DEFW 


CALL ØAB1IH 


DE, AWERT 
HL, 7921H 
BC, 4 


Má 
(78AFH), A 
BA7FH 

HL, (7921H) 
(ZWERT),HL 


45H 
BAAH 
J&H 
82H 


sAusgangswert adressieren 
sArbeitsbereich 1 adressieren 
sWertlänge = 4 

jAusgangswert in Arbeitsbereich 1 
;Typ-Flag = einfache Genauigkeit 


sUmwandlungsroutine aufrufen 
jErgebnis aus Arbeitsbereich 1 
sins Ergebnisfeld übertragen 


sAusgangswert 2.889539 
sals Fließkommazahl 
seinfacher Genauigkeit 
SLSB-NSB-MSB-EXP 


jErgebnisfeld 
senthält nach der Umwandlung 
sden Wert 2 


Ganzzahl in Zahl einfacher Genauigkeit 


Der Inhalt des Arbeitsbereichs 1 wird von einer Ganzzahl (Integer) in eine 
Fließkomsazahl einfacher Genauigkeit umgewandelt. 


Beispiel: Die Zahl 18569 ist vom Format der Ganzzahl in eine Fließ- 
kommazahl einfacher Genauigkeit umzuwandeln und ins Feld 
ZWERT zu übertragen. 


LD 
LD 
LD 
LD 
LD 
LD 


A, Mm 
77218), A 
A, A6H 
{7922H}, A 
A2 
(TBAFH) „A 


- 116 - 


LSB von 18569 
sin Arbeitsbereich 1 
ıMSB von 18569 
sin Arbeitsbereich 1 
;Typ-Flag = Integer 


CALL  BABIH sWert umwandeln 
LD HL, ZWERT iErgebnis ins Feld ZWERT 


CALL  9CRH ‚übertragen 


ZWERT DEFS 4 !Ergebnisfeld 


ZWERT enthält nach der Umwandlung den Wert 
BBH-12H-11H-BFH tLSB-NSB-MSB-EXP). 


Dies entspricht der Zahl 18569H in der Form als 


Fließkommazahl einfacher Genauigkeit. 


CALL BADBH 


Ganzzahl in Zahl doppelter Genauigkeit 


Der Inhalt des Arbeitsbereichs I wird von einer Ganzzahl (Integer) in eine 
Fließkommazahl doppelter Genauigkeit umgewandelt. 


Beispiel: Die Zahl 457 ist in eine Fließkommazahl doppelter Genauigkeit 
umzuwandeln. 
LD A, FiH LSB von 657 
LD (79721H),A sin Arbeitsbereich 1 
LD Aı2 iMSB von 657 
LD (79224),A sin Arbeitsbereich 1 
LD A12 ıTyp-Flag = Integer 
LD {TBAFH) A 
CALL  BADBH sin Wert doppelter Ganauigkeit umw 


ZWERT 


LD DE, ZWERT sErgebnis ins Ergebnisfeld 
LD HL,791DH sübertragen 


LD BC,8 stLänge = 8) 
LDIR 
DEFS 8 ;Ergebnisfeld 


ZWERT enthält nach der Umwandlung den Wert 657 als Fließkomma- 
zahl doppelter Genauigkeit 
{BOH-BOH-BBH-BEH-BOH-4BH-24H-BAH) 


-117 - 


ASCII-String in mmerische Darstellung 


Die nachfolgenden drei Routinen wandeln einen numerischen ASCII-String in einen 
der drei Datentypen um. 


Beim Einsprung muß das Registerpaar HL auf den Anfang des umzuwandelnden 
Strings zeigen. Die Umwandlung wird bei Erreichen des ersten nichtnumerischen 
Zeichens beendet. 


Alle Register werden verändert. 


CALL 1ESAH ASCII-String in Ganzzahl umwandeln 


Der mit HL adressierte ASCII-String wird in eine Ganzzahl (Integer) umgewan- 
delt. 


Das Ergebnis wird im Registerpaar DE übergeben. 


Beispiel: Der ASCII-String ’16544° soll in eine Ganzzahl 
umgewandelt werden. 


LD HL AWERT jAusgangswert adressieren 
CALL  1ESAH sASscII-String in Ganzzahl 
LD (ZWERTI,DE ;Ergebnis ins Ergebnisfeld 


AWERT DEFM O4 16544’ sAusgangswert 
DEF 8 jEndekennung 


ZWERT DEFW 8 jErgebnisfeld 


ZWERT enthält nach der Umwandlung den Wert 16544 als 
2-Byte binäre Ganzzahl (= ABABH). 
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CALL BESUCH ASCII-String in Rinärwert beliebigen 
Typs umwandeln 


Wandelt den nit HL adressierten numerischen ASCII-String in einen der drei bi- 
nären Datentypen um. 


Ist der Wert des ASCII-Strings kleiner als 32768 und enthält der ASCII-String 
keinen Dezisalpunkt, keine Exponentenangabe ’E’ oder °D’ und keine Typkenn- 
zeichnung ’#°’ oder ’'’, so erfolgt die Umwandlung in eine 2-Byte Ganzzahl 
(Integer). 


Ist der Wert größer als 32767 oder enthält der ASCII-String einen Dezimalpunkt, 
die Exponentenangabe ’E’ oder die Typkennzeichnung ’!’, 50 wird er in eine 
Fließkommazahl einfacher Genauigkeit umgewandelt. 


Bei einer Exponentenangabe ’D’ oder einer Typkennzeichnung ’#’ erfolgt die Um- 
wandlung in eine Fließkommazahl doppelter Genauigkeit. 


Beispiele: ’12345° - Umwandlung in eine Ganzzahl 
Aio - Umwandlung in einfache Genauigkeit 
12.3 - Umwandlung in einfache Genauigkeit 
? 12345! - Umwandlung in einfache Genauigkeit 
1234F - Umsandlung in doppelte Genauigkeit 
’123E18’ - Umwandlung in einfache Genauigkeit 
’123D18’ - Umwandlung in doppelte Genauigkeit 


Das Ergebnis wird im Arbeitsbereich i übergeben. Im Typ-Flag wird der Typ des 
Ergebnisses angezeigt. 


Beispiel: i 


LD HL,AWERT sASCII-String adressieren 
CALL  BESCH sin Binärwert umwandeln 


AWERT DEFM 24657’ sASCII-String 
DEB 8 sEndekennung 


Der String ’24457° wird in eine Ganzzahl umgewandelt und im 


Arbeitsbereich 1 (7921H-7922H) übergeben. Das Typ-Flag bei 
78AFH wird auf @2H (= Ganzzahl) gesetzt. 


= 119-* 


CALL BE&ASH ASCII-String in doppelte Genauigkeit 


Dies ist ein Vorspann vor der o.a. Routine bei BEACH. Damit wird eine Uswand- 
lung in eine Fließkommazahl doppelter Genauigkeit erzwungen, unabhängig von der 
Größe und Konstellation des ASCII-Strings. 


Beispiel! . 


LD HL,AWERT sASCII-String adressieren 
CALL  BESSH jin dopp. Genauigkeit umwandeln 


AWERT DEFM 24567’ sASCII-String 
DEFB 8 }Endekennung 


Der String ’24567’ wird in eine Fließkommazahl doppelter 
Genauigkeit umgewandelt. 


Binär-Wert in ASCII-String umwandeln 


Die drei nachfolgenden Routinen wandeln einen numerischen Wert aus dem Binär- 
foraat in einen ASCII-String um, 


CALL ØFAFH Inhalt von HL in ASCII umwandeln 


Ein ia HL-Registerpaar befindlicher Binärwert wird in einen ASCII-String unge- 
wandelt und an der Cursorposition auf dem Bildschirm dargestellt. 


Diese Rautine wird vom BASIC-Interpreter dazu benutzt, die Zeilennumer einer 
Programmzeile auf dem Bildschirm darzustellen. 


Beispiel: ; 
LD HL, 3839H ;Binärwert laden 
CALL  BFAFH sin ASCII umwandeln und ausgeben 


Auf dem Bildschirm wird der Wert 12345 {= 3039H) dargestellt. 
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CALL 132FH Ganzzahl in ASCII umwandeln 


Eine ir Arbeitsbereich 1 befindliche Ganzzahl (Integer) wird in einen ASCII- 
String umgewandelt und bei der mit HL adressierten Stelle in Speicher abgelegt. 
Die Register B und C sollten beim Einsprung auf einen Wert größer b gesetzt 
werden, um eine Einfugung von Komas oder Punkten im ASCII-String zu unter- 
drucken. 


Das Ergebnis wird mit einen Endekennzeichen BOH versehen 


Beispiel! š 


LD HL,456 sunzuwandeinder Wert 

LD (7921H); HL ;in Arbeitsbereich 1 

LD BC,6B6H $B u. C > & setzen 

LD HL STRING ;Ergebnisfeld adressieren 
CALL  132FH jWert in ASCII umwandeln 


STRING DEFSS & jErgebnisfeld 


Nach der Umwandlung enthält das Ergebnisfeld den Eintrag 
JOH-30H-IAH-35H-ICH- OH = 00456. 


CALL G@FBEH Fließkomma-Wert in ASCII-String 


Umwandlung einer Fließkommazahl einfacher oder doppelter Genauigkeit in einen 
ASCII-String. Die Fließkommazahl ist im Arbeitsbereich 1 bereitzustellen. Der 
erzeugte ASCII-String wird im Druckpuffer für formatierte Zahlenausgabe bei 
7938H übergeben. 


Der ASCII-String ist mit @@H abgeschlossen, HL zeigt beim Aussprung auf den 
Pufferanfang, DE auf das Ende des erzeugten ASCII-Strings (B@H). Bei einem 
Feiduberlauf wird in das Byte vor dem Druckpuffer (792FH) das Zeichen '%' ein- 
getragen. 


Bei dieser Umwandlung kann eine komfortable Formatierung des zu erzeugenden 


ASCII-Strings angefordert werden. Diese Formatierung wird durch Einträge in den 
Registern A, B und € gesteuert. 
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Die einzelnen Bits des A-Registers haben folgende Auswirkungen auf die Forma- 


tierung: 


Bit 7 


Bit 6 


Bit 5 


Bit & 
Bit 3 
Bit 2 
Bit 1 


Bit 


B-Register 


C-Register 


keine Formatierung durchführen. 


Formatierung entsprechend den nachfolgend 
gesetzten Bits durchführen. 


alle 3 Stellen wird eine Komma zur Trennung 
der Tausender-Werte eingefügt. 


führende Leerzeichen des ASCII-Strings werden 
durch ’*’ ersetzt. 


vor der Zahl ist das Zeichen °$? auszugeben. 
Ein ’+’ als Vorzeichen ist darzustellen. 

Das Vorzeichen ist hinter der Zahl darzustellen. 
nicht benutzt 


ASCI -Darstellung mit Expenenten-Ausgabe 


Anzahl auszugebender Zeichen links des 
Dezimalpunktes. 


Anzahl auszugebender Zeichen rechts des 
Dezimalpunktes. 


Beim Einsprung in FROH anstelle von BFBEH wird die Formatierung unterdrückt. 


Beispiel: > 


LD HL,AWERT Umwandlung eines ASCII-Strings 
CALL BESCH sin einfache Genauigkeit 
CALL  OFRDH jund zurúck in einen ASCII-String 


AWERT DEFM 1234.56’ sAusgangswert 
BEFB 8 }Endekennung 


Der Ausgangs-ASCII-String ’1234.56° wird zunächst in eine 
Zahl einfacher Genauigkeit umgewandelt. 

Mit dem CALL ØFRDH erfolgt die Rückwandlung in den Original- 
ASCII-String, der nun im Bereich 7930H. .... mit einem 
führenden Leerzeichen und einem abschließenden BOH steht. 
Register HL enthält den Eintrag 793@H und Register DE den 
Eintrag 7938H. 

Das Ergebnisfeld hat hexadezimal folgenden Inhalt: 
20H-31H-32H-33H-34H-2EH-35H-36H-BAH 


Arithmetische Rautinen 


Diese Routinen fuhren arithmetische Operationen zwischen zwei Üperanden dessel- 
ben Datentyps aus, 


Die Routinen erwarten die Öperanden in den vorgegebenen Registern oder Arbeits- 
bereichen. Das Typ-Flag sollte vor dem Aufruf auf den entsprechenden Datentyp 
gesetzt werden. 


Die Divisions-Routinen benutzen das Disvisions-Unterprogramm im Kommunikations- 
bereich (7BBQH-788DH); dieses muß dort unversehrt vorhanden sein. 

Routinen zur Bearbeitung von Ganzzahlen (Integer) 

Die folgenden 5 Routinen führen arithmetische Operationen zwischen zwei 16-Bit 
Ganzzahlen aus. Die beiden Operanden sind in den Registerpaaren HL und DE be- 


reitzustellen. Bis auf eine Ausnahme bleibt der Inhalt von DE unverändert er- 
halten; das Ergebnis wird in aller Regel im Registerpaar HL zurückgegeben. 
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CALL BEDZH Zwei Ganzzahlen addieren 


Addiert den Inhalt des Registerpaares DE auf den Inhalt des Registerpaares HL. 
Die Summe wird in HL übergeben. 


übersteigt die Summe jedoch 213 (überlauf), so werden beide Werte zunächst in 
ein Fließkommazahl einfacher Genauigkeit umgewandelt und die Operation wieder- 
holt. In diesem Fall steht das Ergebnis anschließend als Wert einfacher Genau- 
igkeit im Arbeitsbereich 1 des Komminikationsbereichs. Das Typ-Flag bei 78AFH 
erhält den Eintrag ’4°. 


Beispiel: Die in WERTI und WERT2 gespeicherten Ganzzahlen sind 
zu addieren. 


LD HL,WERTI il. Wert laden 
LD DE,WERT2 ;2. Wert laden 


LD a2 ıTyp-Flag = Ganzzahl 

LD (T8AFH),A 

CALL  BBD2H ‚Werte addieren 

LD A, (7BAFH) ;Tuyp-Flag laden 

cp 2 Ergebnis = Ganzzahl ? 

JR NZ, 5P nein, ==> einf, Genauigkeit 
INT : jja! 


WERTI DEFW 15 
WERT2 DEFW 48 


CALL ØBC7H Zwei Ganzzahlen subtrahieren 


Subtrahiert den Wert in DE von dem Wert in HL. Die Differenz wird im Register- 
paar HL übergeben. 


Tritt ein ünterlauf auf, d.h. die Subtraktion von zwei Werten ungleichen Vorzei- 
chens ergibt einen Wert > 215, so werden beide Werte vor der erneuten Subtrak- 
tion in Fließkomsazahlen einfacher Genauigkeit umgewandelt. Die Differenz wird 
als Wert einfacher Genauigkeit im Arbeitsbereich 1 übergeben. Erkenntlich ist 
ein solcher Fall am Typ-Flag, das von ’2’ auf ”4’ gesetzt wird. 
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Beispiel: Von WERT soll WERT2 subtrahiert werden. 


LD HL,WERTI 
LD DE, WERTZ 
LD A2 
LD (78AFH) ,À 
CALL  BBC7H 
LD As (78AFH) 
CP 2 
JR NZ, 5P 

INT . 


WERTI DEFW 58 
WERT2 DEF 38 


CALL BBFZH 


iWerte laden 
;Typ=Ganzzahl 


;DE von HL subtrahieren 
ıTyp-Flag laden 

jErgebnis = Ganzzahl ? 

nein ==> einfache Genauigkeit 
iJa! 


Multiplikation von 2 Ganzzahlen 


Der Inhalt von HL wird mit dem Inhalt von DE multipliziert. Das Produkt steht 


anschließend in HL. 


In Falle eines überlaufs (Produkt > 215), werden beide Werte in Fließkomma- 


zahlen einfacher Genauigkeit umgewandelt und 


die Multiplikation erneut durchge- 


führt. Das Produkt steht in diesem Fall im Arbeitsbereich I, das Typ-Flag ent- 


hält den Wert 4. 

Beispiel: Der Inhalt von WERTI ist mit WERT2 zu aultiplizieren. 
LD HL,WERTI jWerte laden 
LD DE, WERTZ 
LD hı2 ıTypflag = Ganzzahl 
LD (78AFH) „A 
(ALL  BBF2H ;Werte aultiplizieren 
LD A (7BAFH) ;Typ-Flag laden 
cp 2 jErgebnis = Ganzzahl ? 
JR NZ; SP jnein ==> einf. Genauigkeit 

INT 5 jja! 


WERTI DEFW 18 
WERT2 DEFW 12 
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CALL 2490H Division von Ganzzahlen 

Der Inhalt von DE wird durch HL dividiert. 

Beide Werte werden vor der Division in Fließkommazahlen einfacher Genauigkeit 
umgewandelt. Der Quotient wird ebenfalls mit einfacher Genauigkeit im Arbeits- 
bereich 1 übergeben. Das Typ-Flag bei 78AFH erhält den Eintrag ’4°, 


Die Inhalte von DE und HL werden zerstört. 


Beispiel: WERTI ist durch WERT2 zu dividieren. 


LD DE, (WERT) ;Dividend laden 
LD HL, (WERT2) ;Divisor laden 
CALL — 2490H ‚Division durchführen 


WERTI DEF 88 
WERTZ DEFW 4 
CALL BA39FH Vergleich von zwei Ganzzahlen 


Die Inhalte von HL und DE werden algebraisch miteinander verglichen. Beide Re- 
gisterinhalte bleiben unverändert. 


Das Ergebnis des Vergleichs wird in A-Register und in den Status-Flags 
(Z = ZERO-Flag, C = CARRY-Flag) übergeben. 


HL > DE A =i 
HL = DE A=B ZFla = 1 
HL < DE A=-1 C-Flag = 1, Sflag = 1 
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Beispiel: Die Inhalte von WERTI und WERTZ sind zu vergleichen. 


LD HL, (WERT1) ikWerte laden 

LD DE, (WERTZ) 

CALL — BA39H iWerte vergleichen 
JP ZG6LEICH ‚==> WERTI = WERT2 


JP („KLEIN 3==> WERTI < WERTZ 
GROSS . ;==> WERTI > WERTZ 


WERT DEFW sonne 
WERTZ DEFW eses 


Aritimetische Operationen einfacher Genauigkeit 


Funf weitere Routinen stehen zur Verfügung, Fließkommazahlen einfacher Genauig- 
keit arithmetisch miteinander zu verknüpfen. 


Diese Routinen erwarten ein Argument in den Registerpaaren BC und DE und das 
zweite Argument im Arbeitsbereich 1 des Kommunikationsbereichs. Das Ergebnis 
wird grundsätzlich im Arbeitsbereich 1 zur Verfügung gestellt. 

CALL @716H Addition einfacher Genmauigkeit 


Addieren von zwei Fliefkommazahlen einfacher Genauigkeit. 


Ein Summand ist in BC/DE bereitzustellen, der zweite Summand im Arbeitsbereich 
1. Nach der Addition steht die Summe im Arbeitsbereich 1. 


Beispiel: i 
LD HL: WERT si. Wert adressieren 
CALL  9BIH sin Arbeitsbereich I ubertragen 
LD HL, WERTZ $2. Wert adressieren 
CALL ICH sin BC/DE übertragen 
CALL  716H ibeide Werte addieren 
WERTI DEFS å sWert einfacher Genauigkeit 
WERT2 DEFS 4 sWert einfacher Genauigkeit 


Das Ergebnis der Addition steht im Arbeitsbereich 1. 


=A 


CALL 3713H 


Subtraktion einfacher Genauigkeit 


Subtrahiert eine in BC/DE stehende Fließkommazahl einfacher Genauigkeit vom 
Inhalt des Arbeitsbereichs 1. Die Differenz steht anschließend is Arbeits- 


bereich 1. 


Beispiel: 


WERTI 
WERT2 


CALL 0847H 


LD 
CALL 
LD 


CALL 


DEFS 
DEFS 


HL,WERTI 
9BIH 
HL WERT2 
ICH 
16H 


+ 


si. Wert adressieren 

sin Arbeitsbereich 1 übertragen 
2. Wert adressieren 

sin BC/DE übertragen 

ıWERTI - WERT2 


‚Wert einfacher Genauigkeit 
Wert einfacher Genauigkeit 


Multiplikation einfacher Genauigkeit 


Miltipliziert den ia Arbeitsbereich 1 stehenden Wert einfacher Genauigkeit mit 
dem Inhalt von BC/DE. Das Produkt steht anschließend im Arbeitsbereich 1. 


Beispiel! 


WERTI 
WERT2 


LD 
CALL 
LD 
CALL 
CALL 


DEFS 
DEFS 


HL WERTI 
FBIH 
HL: WERT2 
9C2H 
847H 


- 138 - 


si. Wert adressieren 

sin Arbeitsbereich 1 übertragen 
2. Wert adressieren 

sin BC/DE übertragen 

SHERTI # WERT2 


sWert einfacher Genauigkeit 
Wert einfacher Genauigkeit 





CALL 2490H Division einfacher Genauigkeit 
Dividiert eine in BC/DE stehende Fließkommazahl einfacher Genauigkeit durch den 
Inhalt des Arbeitsbereichs 1 (einfache Genauigkeit). Der Quotient steht an- 
schließend im Arbeitsbereich 1. 

Beispiel: è 


LD HL WERTI ‚Divisor adressieren 


CALL  9BIH sin Arbeitsbereich 1 übertragen 
LD HL, WERTZ? Dividend adressieren 
CALL  9C2H sin BC/DE 
CALL 2498H JWERTZ / WERTI 
WERTI DEFS 4 Wert einfacher Genauigkeit 
WERT2 DEFS 4 sbert einfacher Genauigkeit 
CALL BAUCH Vergleich von Werten einfacher Genauigkeit 


Diese Routine führt einen algebraischen Vergleich von zwei Fließkommazahlen 
durch. Diese aussen in den Registern BC/DE und im Arbeitsbereich 1 bereitge- 
stellt werden. 


Das Ergebnis des Vergleichs wird in A-Register und im Flag-Register übergeben. 


BC/DE > Arb.ber.i - A=-1i Carry- + Sign-Flags = 1 

BC/DE < Arb.ber.i - A=i 

BC/DE = Arb.ber.i - A=B Zeroflag = 1 
Beispiel: i 


LD HL,WERTI 1. zu vergleichenden Wert 


CALL  9BIH jin Arbeitsbereich 1 

LD HL,WERT2 2. zu vergleichenden Wert 
CALL  9CZH sin BC/DE 

CALL  BABCH iWerte vergleichen 

JP lyse j==> WERTI = WERT2 

JP Cica j==> WERTI < WERT2 

; ‚==> WERTI > WERT2 


WERTI DEFS 4 


Wert einfacher Genauigkeit 
WERT2 DEFS 4 Wer 


i 
sWert einfacher Genauigkeit 
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Arithaetische Operationen doppelter Genauigkeit 


Wie für die beiden vorherigen Datentypen stehen auch für die arithmetische Ver- 
knupfung von zwei Fliefkommazahlen doppelter Genauigkeit fünf Routinen zur Ver- 
fugung. 


Dabei ist ein Argument im Arbeitsbereich 1 (791DH-7924H) und das zweite Argu- 
sent im Arbeitsbereich 2 (7927H-792EH) bereitzustellen. Das Ergebnis steht 
immer im Arbeitsbereich i. 


CALL ØC77H Addition doppelter Genauigkeit 


Hier werden zwei Fließkommazahlen doppelter Genauigkeit addiert und die Sumae 
is Arbeitsbereich 1 übergeben. 


Beispiel: i 


LD å:8 ‚Typ-Flag = doppelte Genauigkeit 
LD (78AFH),A  ;setzen 

LD DE,WERTI s1. Argument adressieren 

LD HL,791DH Arbeitsbereich 1 adressieren 
CALL 9D3H sl. Argument in Arbeitsbereich 1 
LD DE, WERT2 2. Argument adressieren 

LD HL, 7927H Arbeitsbereich 2 adressieren 


CALL ID 2. Argument in Arbeitsbereich 2 
CALL  BC77H SHERTI + WERTZ 
WERTI DEFS 8 Wert doppelter Genauigkeit 
WERT2 DEFS 8 Wert doppelter Genauigkeit 
CALL ØC7ØH Subtraktion doppelter Genauigkeit 


Subtrahiert eine im Arbeitsbereich 2 befindliche Fließkommazahl doppelter Ge- 
nauigkeit vom Inhalt des Arbeitsbereichs 1. Die Differenz steht anschließend im 
Arbeitsbereich 1. 
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Beispiel: : 


LD 
LD 
LD 
LD 
CALL 
LD 
LD 


CALL 


WERTI  DEFS 
WERT2 DEFS 


CALL BDAIH 


A,B 
{7BAFH), À 
DE,WERTI 
HL, 791DH 
DH 

DE, WERTZ 
HL, 7927H 
9D3H 
BC7BH 


co 


‚Typ-Flag = doppelte Genauigkeit 
‚setzen 

si. Wert adressieren 
jArbeitsbereich 1 adressieren 
si. Wert in Arbeitsbereich 1 

32. Wert adressieren 
Arbeitsbereich 2 adressieren 
s2. Wert in Arbeitsbereich 2 
3WERTI - WERT2 


Wert doppelter Genauigkeit 
iWert doppelter Genauigkeit 


Multiplikation doppelter Genauigkeit 


Miltipliziert die Fließkommazahl doppelter Genauigkeit im Arbeitsbereich 2 mit 
dem Inhalt von Arbeitsbereich 1. Das Produkt steht anschließend im Arbeits- 


bereich I. 

Beispiel: : 
LD 
LD 


LD 
LD 


LD 
LD 


CALL 


WERTI DEFS 
WERT2  DEFS 


Aı8 
{T8AFH),A 
DE,WERTI 
HL, 791DH 
DH 
DE,WERT2 
HL, 7927H 
DH 
BDAIH 
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;Typflag = doppelte Genauigkeit 
jsetzen 

si. Wert adressieren 
Arbeitsbereich 1 adressieren 
si. Wert in Arbeitsbereich 1 

12. Wert adressieren 
jArbeitsbereich 2 adressieren 
;2. Wert in Arbeitsbereich 2 
sWERTI * WERT2 


Wert doppelter Genauigkeit 
{Wert doppelter Genauigkeit 


CALL ØDESH Division doppelter Genauigkeit 


Dividiert eine im Arbeitsbereich i befindliche Fließkommazahl doppelter Ge- 
nauigkeit durch eine solche im Arbeitsbereich 2. Der Quotient steht anschlies- 
send im Arbeitsbereich 1. 


Beispiel: : 


LD a8 ;Typ-Flag = doppelte Genauigkeit 
LD (78AFH),A  jsetzen 

LD DE, WERTI ıDividend adressieren 

LD HL, 791DH Arbeitsbereich 1 adressieren 
CALL  9D3H ‚Dividend in Arbeitsbereich 1 

LD DE, WERT? Divisor adressieren 

LD HL, 7927H Arbeitsbereich 2 adressieren 


Cal DH ;Divisor in Arbeitsbereich 2 
CALL  BDESH sWERTI / WERT2 
WERTI DEFS 8 Wert doppelter Genauigkeit 
WERT2 DEFS 8 Wert doppelter Genauigkeit 
CALL ØA4FH Vegleich doppelter Genauigkeit 


Vergleicht zwei Flieĝkommazahlen doppelter Genauigkeit miteinander. Diese sind 
in den Arbeitsbereichen i und 2 bereitzustellen. Das Ergebnis des Vergleichs 
wird in A-Register und ia Flag-Register dargestellt. 


Arb. Ber. i > Arb.Ber.2 ba À 
Arb. Ber. 1 = Arb, Ber.2 - À 
Arb. Ber.1 < Arb. Ber.2 I À 


1 
8 Zero-Flag = i 
-i Carry- + Sign-Flag = 1 


Beispiel! 3 


LD A8 iTyp-Flag = doppelte Genauigkeit 
LD (T8AFH),A ;setzen 

LD DE, WERT sl. Wert adressieren 

LD HL, 791DH Arbeitsbereich 1 adressieren 
CALL DH tWert i in Arbeitsbereich 1 

LD DE,WERT2 2. Wert adressieren 

LD HL, 7927H Arbeitsbereich 2 adressieren 
CALL 9D3H ;Wert 2 in Arbeitsbereich 2 
CALL  BA4FH sWert i'mit Wert 2 vergleichen 
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JP lissa 
JP Cias: 


WERTI DEFS 8 
WERT2 DEFS 8 


Mathematische Routinen 


Die nachfolgenden Routinen dienen der Berechnung mathematischer Funktionen. 
Diese erhalten beim Aufruf, bis auf eine Ausnahme, nur ein Argument, das im 
Arbeitsbereich 1 des Kommunikationsbereichs zu übergeben ist. Der Typ des Argu- 


ments ist ir Typ-Flag bei 78AFH anzugeben. 


CALL 0977H 


Der is Arbeitsbereich 1 befindliche Wert wird in sein positives Äquivalent um- 


Wert doppelter Genauigkeit 
rt doppelter Genauigkeit 


$ 


Absolut-Wert ermitteln ABS(N) 


gewandelt. Das Ergebnis steht anschließend ebenfalls im Arbeitsbereich 1. 


Steht im Arbeitsbereich 1 die negative Ganzzahl -32768, so wird das Ergebnis 
als Fließkommazahl einfacher Genauigkeit übergeben. Das Typ-Flag bei 78AFH wird 


entsprechend korrigiert. 


Als Argument sind alle Datentypen zugelassen. 


einfacher Genauigkeit soll der Absolutwert ermittelt 


Typ-Flag = einfache Genauigkeit 


‚setzen 
jArgument adressieren 


sund in Arbeitsbereich 1 übertr. 


Beispiel: Von der im Feld WERTI befindlichen Fließkommazahl 
werden. 
LD Ay4 
LD {78AFH),A 
LD HL,WERTI 
CALL  QBIH 
CALL 8977H 
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jAbsolutwert bilden 


WERTI DEFE BFH Wert einfacher Genauigkeit 


DEFB 80H ‚= = 94.3456 
DEFE BBCH 
DEFB 87H 


Nach Abschluß der Operation steht im Arbeitsbereich 1 der 
Wert 94.3456 in einfacher Genauigkeit. 


CALL BORZ37H Ermitteln der nächstniedrigeren ganzen Zahl 
INT {N) 


Diese Routine ermittelt den ganzzahligen Anteil einer Fließkommazahl. Diese ist 
in Arbeitsbereich 1 bereitzustellen, das Typ-Flag muß den korrekten Datentyp 
anzeigen. 


Wenn die Wertgröße es erlaubt (-32768 bis +32767), wird das Ergebnis im Daten- 
typ ’Ganzzahl’ zurückgegeben, ansonsten bleibt der Datentyp unverändert. Der 
Typ des Ergebnisses kann in Typ-Flag bei 7BAFH ermittelt werden. 


Das Ergebnis steht im Arbeitsbereich 1. 


Beispiel: Von der in Wert i befindlichen Fließkommazahl einfacher 
Genauigkeit ist der ganzzahlige Anteil zu ermitteln. 


LD Ar Typ-Flag = einfache Genauigkeit 
LD {78AFH),A setzen 
LD HL,WERTI sArgument adressieren 


CALL  9BIH sin Arbeitsbereich 1 übertragen 

CALL  0B37H sganzzahligen Anteil ermitteln 
WERT ' DEFB 20H sWert einfacher Genauigkeit 

DEFB &FH ;= 12.589 

DEFB 49H 

DEFB 84H 


Das Ergebnis, die Zahl 12 steht als Datentyp 
’Ganzzahl’ im Arbeitsbereich i, das Typ-Flag bei 
7BAFH hat den Eintrag °P’. 


- 14 - 


CALL. 15BDH Arkustangens ermitteln ATN (N) 


Von einem im Arbeitsbereich I als Fließkommazahl gespeicherten Tangens-Wert 
wird der dazugehörige Winkel im Bogenmaß ermittelt. Das Ergebnis wird als 
Fließkommazahl im Arbeitsbereich zur Verfügung gestellt. 


Beispiel: Von dem im Feld ’TAN’ gespeicherten Tangens-Wert 
ist der Winkel im Bogenmaß zu ermitteln und ins Feld 
’RAD’ zu übertragen. 


LD Ay4 ıTyp-Flag = einfache Genauigkeit 
LD (T8AFH),A  jsetzen 
LD HL, TAN }Tangens-Wert 
CALL FBIH sin Arbeitsbereich 1 ubertragen 
CALL  15BDH Winkel ermitteln 
LD HL, RAD jErgebnisfeld adressieren 
LD DE, 7921H sArbeitsbereich 1 adressieren 
CALL  9D3H jErgebnis ins Ergebnisfeld 

TAN DEFB JAH ;Tangens von 3 (0.57735) 
DEFE BCDH 
DEFB 13H 
DEFB 88H 

RAD DEFS 4 jErgebnisfeld 


Nach Ablauf der 0.a. Routine enthält das Feld ’RAD’ den 
Wert des Winkels 38° in Bogennaß 
(PIH-BAH-DSH-BEH = 8.523598) 

CALL 1541H Kosinus eines Winkels eraitteln COS (N) 


Ernittelt den Kosinus eines im Bogennaß angegebenen Winkels. 


Der Winkel ist als Fließkommazahl im Arbeitsbereich 1 bereitzustellen, das Er- 
gebnis wird ebenfalls als Fließkommazahl im Arbeitsbereich 1 übergeben. 
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Beispiel: Der Kosinus des im Feld ’RAD’ angegebenen Winkels ist 
zu ermitteln und in das Feld "KOS? zu übertragen. 


LD 
LD 
LD 
CALL 
CALL 
LD 
LD 
CALL 


RAD DEFR 
DEFR 
DEFB 
DEFR 


KOS DEFS 


s4 
{7BAFH),A 
HL: RAD 
BIH 
1541H 

HL, KOS 
DE, 7921H 
9D3H 


~O 
4 
zT 


$FE 


4 


sTyp-Flag = einfache Genauigkeit 
‚setzen 

‚Winkel in Arbeitsbereich | 
übertragen 

‚Kosinus ermitteln 

jErgebnisfeld adressieren 
‚Arbeitsbereich 1 adressieren 
Ergebnis übernehmen 


ıBogenraß von 300 
18.523598) 


;Ergebnisfeld 


Nach der Berechnung steht im Feld ’K0S’ der Kosinus des 


Winkels von 300 
{D7H-B3H-5DH-BOH 


CALL 1547H 


= 0.866025) 


Sinus eines Winkels ermitteln SIN (N) 


Es wird der Sinus eines Winkels ermittelt. 


Der Winkel ist im Bogenmaß als Fließkomsazahl im Arbeitsbereich I bereitzustel- 
len. Das Ergebnis steht anschließend ebenfalls im Arbeitsbereich 1. 


Beispiel: Von dem im Feld ’RAD’ befindlichen Winkel ist der 
Sinus zu ermitteln und im Feld ’SIN’ zu übergeben. 


LD 
LD 
LD 
CALL 
CALL 


Âr 
{(78AFH); À 
HL, RAD 
FBIH 
1547H 
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ıTyp-Flag = einfache Genauigkeit 
‚setzen 

Winkel in Arbeitsbereich 1 
subertragen 

Sinus eraitteln 





LD 
LD 
CALL 


RAD DEFR 
DEFB 
DEFB 
DEFB 


SIN DEFS 


HL: SIN 
DE, 7921H 


9D3H 


FEE> 


PO 


‚Ergebnisfeld adressieren 
Arbeitsbereich i adressieren 
jErgebnis übertragen 


‚380 im Bogenmaß (= 8.523598) 


jErgebnisfeld 


Das Feld ’SIN’ enthält nach der Berechnung den Sinus 


von 300, 


CALL 1439H 


Ermittelt den Wert e zur Basis N 


Ersitteln der Exponentialfunktion e* EXP (N) 


te = 2.71828). 


Das Argument N ist als Fließkommazahl einfacher Genauigkeit im Arbeitsbereich 1 
bereitzustellen. Das Ergebnis wird ebenfalls in einfacher Genauigkeit im Ar- 


beitsbereich i übergeben. 


Beispiel! el.3708 ist zu ermitteln. 
LD A4 
LD {7BAFH) A 
LD HL,EAP 
CALL  9BIH 
CALL 1439H 
LD DE, 7921H 
LD HL:ERG 
- CALL  9D3HK 
EXP DEFB BDBH 
DEFB BFH 
DEFB 49H 
DEFB 8IH 
ERG DEFS 4 
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;Typ-Flag = einfache Genauigkeit 
jsetzen 

jExponenten adressieren 

sin Arbeitsbereich 1 ubertragen 
Funktion berechnen 
Arbeitsbereich 1 adressieren 
jErgebnisfeld adressieren 
jErgebnis übernehmen 


Exponent (1.5788) 


jErgebnisfeld 


JP 13F2H Potenzieren XY 


Die Ausgangswerte X und Y sind als Fließkommazahlen einfacher Genauigkeit be- 
reitzustellen. 


Die Basis °X’ ist in den Stack-Bereich zu übertragen, der Expanent ’Y’ ist im 
Arbeitsbereich 1 bereitzustellen. Das Ergebnis steht nach der Berechnung als 
Fließkommazahl einfacher Genauigkeit im Arbeitsbereich i. 


Hierbei ist eine Besonderheit zu beachten. Da eines der Argumente auf dem Stack 
bereitgestellt werden muß, kann die Routine nicht mit CALL aufgerufen werden, 
da dann die Rücksprungadresse als letzter Eintrag auf dem Stack stehen würde. 
Die Rücksprungadresse muß vielmehr vor dem Argument auf den Stack geschrieben 
und die Routine mit einem JP aufgerufen werden. Das nachfolgende Beispiel ver- 
anschaulicht dieses Verfahren. 


Beispiel: 16% soll berechnet werden. 

LD HL,RET Rücksprungadresse 
PUSH HL sauf den Stack schreiben 
LD Ash Typ-Flag = einfache Genauigkeit 
LD (78AFH),A setzen 
LD HL, BAS Basiswert adressieren 
CALL  9BIH sin Arbeitsbereich 1 übertragen 
CAL JAH jArbeitsbereich 1 auf den Stack 
LD HL,EXP Exponenten adressieren 
CAL  9BiH sin Arbeitsbereich 1 übertragen 
JP 13F2H xY ermitteln 

RET ` ;Rüucksprungadresse 

BAS DEFW @ ‚Basiswert = 16 
DEFW 85H 

EXP DEF 8 iExponent = 4 
DEF 85H 
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CALL BERBTFH Naturlicher Logarithaus LOG {N 


Ermittelt den natürlichen Logarithaus einer Fließkommazahl einfacher Genauig- 
keit. 

Das Argument ist im Arbeitsbereich 1 bereitzustellen, das Ergebnis wird eben- 
falls als Fließkommazahl einfacher Genauigkeit im Arbeitsbereich 1 übergeben. 


Beispiel: Der natürliche Logarithmus von 5 ist zu ermitteln. 
iD PR ‘Typ-Flag = einfache Genauigkeit 
LD {T8AFH),A setzen 
LD HL ARG sArgument adressieren 
CALL  9BIH sin Arbeitsbereich 1 übertragen 
CALL 2807H nat. Logarithaus ermitteln 
LD DE, 7921H Arbeitsbereich 1 adressieren 
LD HL, L06 sErgebnisfeld adressieren 
CALL FDIH Ergebnis übernehmen 
ARG DEFW B Argument = 5 
DEFB 82H 
DEFE 83H 
LOG DEFS 4 sErgebnisfeld 
CALL 13E7H Wurzel von N ermitteln SQR {N 


Ermittelt die Wurzel eines im Arbeitsbereich 1 gespeicherten Wertes. 


Das Ergebnis wird ebenfalls im Arbeitsbereich 1 zuruckgegeben. 


Beispiel: Die Wurzel aus 144 ist zu ermitteln 
LD Ad Typflag = einfache Genauigkeit 
LD (78AFH),A  ;setzen 
LD  HL,ARG Argument adressieren 
CALL  9BIH sin Arbeitsbereich 1 übertragen 
CALL  13E7H sWurzel ziehen 
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ARG DEF 8 Argument = 144 
DEFB8 10H 
DEFB 88H 


Nach der Berechnung steht das Ergebnis {= 12) im 
Arbeitsbereich i. 
CALL 14C9H Zufallszahl eraitteln RND (N) 


Erzeugt eine Zufallszahl zwischen 8 und 1 oder zwischen i und N, abhängig vom 
Wert ’N’, der im Arbeitsbereich 1 übergeben werden muß. 


Die erzeugte Zufallszahl wird als Fließkommsazahl einfacher Genauigkeit im Ar- 
beitsbereich i zurückgegeben und das Typ-Flag entsprechend modifiziert. 


Das übergebene Arguanent ’N’ bestimet den Bereich der Zufallszahl. Ist N=, 
so wird eine Zufallszahl zwischen @ und 1 erzeugt. Ist N > 8, so wird eine Zu- 
fallszahl zwischen 1 und N ermittelt und als ganze Zahl übergeben. 


Beispiel: Eine Zufallszahl zwischen 1 und 28 soll eraittelt werden. 
LD hı2 Typ-Flag = Ganzzahl setzen 
LD {78AFH) A 
LD HL,28 ıN = 28 laden 
LD (7921H),HL jund in Arbeitsbereich I 
GL  14C9H Zufallszahl ermitteln 


Nach der Berechnung steht eine Zufallszahl zwischen 
1 und 28 ait einfacher Genauigkeit im Arbeitsbereich 1. 


Die so erzeugte Zufallszahl ist keine echte Zufallszahl, sondern wird nach ei- 
nes festen Algorithaus aus der letzten Zufallszahl gebildet. 


Soll mehr Zufälligkeit hineingebracht werden, so kann mit einem CALL iD3H ein 
neuer Basiswert gesetzt werden, der dem augenblicklichen Stand des 288 
Refresh-Registers entnommen wird. Der Basiswert und die letzte erzeugte 
Zufallszahl befinden sich bei 7BAAH - 78ADH in Komunikationsbereich. 
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RESTART - Vektoren 


In unteren Adreßbereich des 188 befinden sich in Ber Schritten sogenannte 
Restart-Adressen, die sit einem speziellen ’RST’ - Befehl erreichbar sind. 


Die RESTART-Vektoren BH bis 38H sind auf RAM-Erweiterungsausgänge am Anfang des 
Komsunikationsbereichs herausgefuhrt. Von dort erfolgt fur die Vektoren WH - 
20H ein Sprung in ROM-Rautinen, die auch für einen Maschinensprache- oder 
Assenbler-Programmierer nutzliche Funktionen erfüllen. 


Es ist auch möglich, die RAM-Erweiterungsausgänge nit Sprungbefehlen in eigene 
Routinen zu belegen. Es ist jedoch dabei zu bedenken, daß nicht mehr so ohne 
weiteres alle anderen der in diesem Kapitel aufgeführten Routinen nutzbar sind, 
da diese gelegentlich auch Gebrauch von den Restart-Befehlen machen. 


RST 8 Ein Zeichen prüfen 


Diese Routine dient dem BASIC-Interpreter zur Suyntax-Prüfung einer Eingabe- 
zeile. Es wird das durch HL adressierte Zeichen mit dem auf den RST 8 - Befehl 
folgenden Zeichen verglichen. Sind beide gleich, wird automatisch die RST 18 - 
Routine aufgerufen und von dort auf das 2. Byte nach dem RST 8 - Befehl zurück- 
gesprungen. Das HL-Registerpaar steht auf dem nächsten durch RST 18 ermittelten 
guitigen Zeichen, das A-Register enthält dieses Zeichen. 


Stimmen die beiden Zeichen nicht überein, wird eine Fehlermeldung "SYNTAX 
ERROR" erzeugt und zur Eingabe-Phase des BASIC-Interpreters zurückgesprungen. 


Beispiel: überprufung eines durch HL adressierten Textes, 
ob dieser aus den Zeichen ’A=B’ besteht. 


LD HL, TEXT Text-String adressieren 


RT 8 iA überprüfen 
DEFB A’ 
RT 8 j= überprüfen 
DEFB Im} 
RT 8 ;B überprüfen 
DEFB °p 


Stimat eines der Zeichen nicht ŭberein, wird ein 
SYNTAX ERROR erzeugt. 
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RST 10H Nächstes gültiges Zeichen ersitteln 


Diese Routine wird vom BASIC-Interpreter benutzt, um bei Analyse einer Eingabe- 
zeile das nächste gultige Zeichen zu ermitteln und zu übernehmen. 


Das Registerpaar HL wird zur Adressierung eines Textstrings verwendet. Beim 
Einsprung wird die darin enthaltene Adresse um 1 erhöht. Das nächste von HL 
adressierte Zeichen wird ins A-Register geladen und das Carry-Flag entsprechend 
der Zeichenart gesetzt. 


CARRY =8 - Zeichen nicht numerisch 
CARRY = i - Zeichen numerisch 


Das ZERO-Flag wird gesetzt, wenn das Textende erreicht wurde. Dieses ist durch 
ein Byte = BBH zu kennzeichnen. 


Rei der Bearbeitung des Textstrings bleiben Leerzeichen und die Steuerzeichen 
OOH (TAB) und BAH (LF) unberucksichtigt, sie werden einfach ubergangen. 


Beispiel: HL zeigt auf eine Programmzeile, die eine Wertzuweisung 
enthält. Die Zeile wurde bis zus Gleichheitszeichen bearbeitet. 
Es ist zu prüfen, ob darauf eine Variable oder eine Konstante 


folgt. 

NEXT RST 10H nächstes Zeichen laden 
JR NC, NONUM snicht numerisch! 
CALL  1E5AH Konstante laden 
JP ee iseiter 

NONUM cP ’+ sist es ein ’+’-Vorzeichen? 
JR Z NEXT fja, nächstes Zeichen laden 
cP da sist es ein ’-’-Vorzeichen? 
JR Z NEXT Ja, nächstes Zeichen 
CALL  260DH ‚Variable in Variablentabelle 

seraittein 
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RST 18H DE ait HL vergleichen 


Diese Routine führt einen logischen Vergleich der beiden Registerpaare DE und 
HL durch. Sie arbeitet nicht korrekt bei Ganzzahlen mit Vorzeichen, dazu ist 
die Routine bei BA3YH farithmetischer Vergleich HL:DE} zu verwenden. 


Das Ergebnis wird in den ZERO- und CARRY-Flags angezeigt. Der Inhalt des 
A-Registers wird verändert. 


CARRY = 1 - HL < DE 
CARRY = @ - HL >= DE 
ZERO = 1 - gleich 
ER = 8 - ungleich 
Beispiel: Es ist zu prüfen, ob ein in DE befindlicher Wert im Bereich 
228 - 508 liegt. 
LD HKL, 508 soberen Grenzwert laden 
RST 18H sait Wert in DE vergleichen 
JR C FEKLER sWert in DE > 508 
LD HL, 199 sunteren Grenzwert laden 
RST 18H $ait Wert in DE vergleichen 
JR NC:FEHER Wert in DE < 208 
RST 2@H Datentyp ermitteln 


Das Typ-Flag bei 7BAFH wird ausgewertet und im A-Register ein numerischer Wert 
in Abhängigkeit zum dort angezeigten Datentyp zurückgegeben. Das Flag-Register 
kann ebenfalls ausgewertet werden. 


Typ Status A-Register 
Ganzzahl NZ: CM E -į 
String Zt, P,E 8 
einf.Genauigk. NZ,C,P,0 Í 
dopp. Genauigk . NZ: NC, P,E 5 
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Der in A-Register übergebene Wert entspricht dem Typ-Code in 78AFH - 3. 


Die Routine wird vom BASIC-Interpreter dazu benutzt, den Datentyp eines im Ar- 
beitsbereich 1 gespeicherten Wertes zu ermitteln. Aber Vorsicht, Typ-Flag und 
Arbeitsbereich 1 müssen nicht immer synchron sein. 


Beispiel: Nach der Addition zweier Ganzzahlen ist zu prufen, ob das 
Ergebnis als Ganzzahl oder als Fließkommazahl einfacher 
Genauigkeit übergeben wurde. 


LD 12 ıTyp-Flag = Ganzzahl 
LD (78AFH),A ;setzen 

LD DE, WERT sl. Summanden laden 
LD HL, WERT? 2. Summanden laden 


CALL  BBD2H Addition zweier Ganzzahlen 
RST 20H ;Typ des Ergebnisses testen 
JP M, INT ‚==> Ergebnis = Ganzzahl 
SP s ;==> Ergebnis = einf. Genauigkeit 
INT ; 
WERTI DEFW 2 ı1. Summand als Ganzzahl 
WERT2 DEFW 2 $2. Summand als Ganzzahl 


übertragungs - Routinen 





In diesem Abschnitt werden einige Routinen beschrieben, die Daten verschiedener 
Typen innerhalb des Speichers oder zwischen Registern und Speicher übertragen. 


CALL BIB4H Fließkommazahl einfacher Genauigkeit 
von BC/DE in den Arbeitsbereich i 


überträgt eine Fließkommazahl einfacher Genauigkeit aus den Registerpaaren 
BC/DE in den Arbeitsbereich 1 des Komsunikationsbereichs. 


Der Inhalt von HL wird zerstört, BC/DE bleiben unverändert. 
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Achtung: Das Typ-Flag bei 7BAFH wird nicht aktualisiert. 


Beispiel: Zwei im Speicher befindliche Fließkommazahlen einfacher 
Genauigkeit sind zu addieren. 


LD 
LD 
CALL 
LD 
LD 
CALL 


ZAHLI DEFS 
ZAHL2  DEFS 


DE, ZAHL 
BC, ZAHLI+2 


BIBAH 


DE, ZAHL2 
BC, ZAHL2+2 


0716H 


4 
4 


sMSB + Exponent der 1. Zahl laden 
sL5B und NSB der 1. Zahl laden 
sin den Arbeitsbereich 1 übertr. 
SNSB + Exponent der 2. Zahl laden 
sLSB und NSB der 2. Zahl laden 
sauf Arbeitsbereich 1 addieren 


iWert einfacher Genauigkeit 
iWert einfacher Genauigkeit 


ZAHLI und ZAHL2 müssen die Werte in der Folge 
LSB-NSB-MSB-EXP enthalten. 


CALL @9B1iH 


Fließkommazahl einfacher Genauigkeit 
in Arbeitsbereich ! übertragen 


Eine ia Speicher befindliche Fließkommazahl einfacher Genauigkeit wird in den 
Arbeitsbereich 1 übertragen. HL muß die Anfangsadresse des Speicherbereichs 


enthalten. 


Die Inhalte von HL/BC/DE werden zerstört. 


Beispiel: E 


WERT DEFS 


HL WERT 


9BIH 
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sWert im Speicher adressieren 
sin Arbeitsbereich 1 übertragen 


senthält eine Fließkommazahl 
seinfacher Genauigkeit 


CALL B9FCEH Fließkommazahl einfacher Genauigkeit 
vom Arbeitsbereich | übernehmen 


Eine im Arbeitsbereich 1 befindliche Fließkommazahl wird in den Programmspei- 
cher übernommen. HL mug die Anfangsadresse des Speicherbereichs enthalten, 


Die Inhalte aller Register werden verändert. 
Beispiel: er 


LD HL, WERT ‚Speicheradresse laden 


CALL  9CRH ‚Wert aus Arbeitsbereich i 
i sin Speicher übertragen 
WERT DEFS 4 ‚enthält nach dem CALL die 
‚Fließkommazahl einfacher Genau- 
jigkeit, 
CALL BICZH Fließkommazahl einfacher Genauigkeit aus des 


Speicher in die Register BC/DE 


Lädt eine Fließkommazahl einfacher Genauigkeit aus einen Speicherbereich in die 
Registerpaare BC und DE. 


HL muß die Anfangsadresse des Speicherbereichs enthalten. 
Die Inhalte aller Register werden verändert. 


Beispiel: Zwei Zahlen einfacher Genauigkeit sind zu addieren. 
Das Ergebnis ist in BC/DE zu übertragen. 


LD HL,WERTI si. Summanden adressieren 


CALL FBiH in Arbeitsbereich 1 

LD HL,WERT2 2. Summanden adressieren 

CALL  9C2H sin BC/DE 

CALL  716H BC/DE auf Arbeitsbereich 1 add. 


LD BC, (7923H) Exponent und NSB der Summe 
LD DE, (7921H) 5NSB und LSB der Summe laden 


WERTI DEFS 4 Wert einfacher Genauigkeit 
WERT? DEFS 4 Wert einfacher Genauigkeit 
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WERTI und WERTZ enthalten die Summanden in der Form 
LSB-NSR-MSR-EXP, 


CALL ØFBFH Fließkommazahl einfacher Genauigkeit vom 
Arbeitsbereich I in BC/DE 


überträgt eine Fließkommazahl einfacher Genauigkeit aus dem Arbeitsbereich | ın 
die Registerpaare BC/DE, 


Achtung, es wird nicht geprüft, ob der Arbeitsbereich 1 wirklich eine Fließ- 
kommazahl einfacher Genauigkeit enthält, dies muß vom aufrufenden Programm Si- 
chergestellt werden. 


Beispiel: Zwei Fließkommazahlen einfacher Genauigkeit sind 


zu multiplizieren. Das Ergebnis ist in BC/DE 
bereitzustellen. 


LD HL,WERTI sMultiplikant adressieren 


CALL FBIH sin Arbeitsbereich 1 übertragen 

LD HL WERTZ ¿Multiplikator adressieren 

CALL  9C2H sin BC/DE übertragen 

CALL  847H ‘Multiplikation ausführen 

CALL  9BFH Produkt in BC/DE übertragen 
WERTI DEFS 4 'Multiplikant in einf. Genauigk. 
WERT2 DES 4 ‚Multiplikator in einf. Genauigk. 


Die Einträge in WERTI und WERTZ mussen in der Form 
LSB-NSR-MSB-EXP vorhanden sein. 
CALL BIAAH Arbeitsbereich 1 auf den Stack übertragen 


übeträgt eine Fließkommazahl einfacher Genauigkeit aus den Arbeitsbereich auf 
den Stack. Diese wird dort in der Reihenfolge LSB-NSB-MSB-EXP gespeichert. 


Alle Registerinhalte bleiben unverändert. 


Es wird dabei nicht geprüft, ob sich im Arbeitsbereich 1 wirklich eine Fließ- 
kommazahl einfacher Genauigkeit befindet. 
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Diese Routine wird zum Beispiel benötigt, wenn Sie die Potenzier-Routine bei 
13F2H benutzen wollen. Dort ist die Basis als Flieglkommazahl einfacher Genau- 
igkeit auf dem Stack bereitzustellen. 


CALL BIDZH Variable übertragungs - Routine 


überträgt, abhängig vom Datentyp, in der Länge des Typ-Flags (7BAFH) einen Wert 
von der in DE spezifizierten Adresse zu der in HL spezifizierten Adresse, 


Die Register A, DE und HL werden verändert, 
Beispiel: Eine Variable doppelter Genauigkeit mit dem Namen ’XY’ soll in 


der Variablentabelle ermittelt und der Wert der Variablen ins 
Programs übernommen werden. 


LD HL, NAME SVariablennamen adressieren 
CALL  260DH Variablenadresse ermitteln 
SDE enthält die Variablenadresse 
RST 28H sist es doppelte Genauigkeit? 
JR NC, OK jja; alles klar 
JP ERROR snein, Fehler 
OK LD HL, DP Speicherbereich adressieren 
CALL  9D3H Variable übertragen 
NAME DEFM xy’ Name der Variablen 
DEB 8 jEndekennung 
DP DEFS 8 iEmpfangsfeld für die Variable 
CALL ZICHBH übertragen einer Stringvariablen 


Eine String-Variable wird aus dem String-Bereich oder der Programstabelle in 
einen prograsminternen Speicherbereich übertragen. 


Bei Einsprung muß HL die Adresse der String-Variablen in der Variablen-Tabelle 
enthalten und DE die Empfangsadresse ia Programm. 
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Für eine String-Variable hat ein Eintrag in der Variablen-Tabelle folgendes 


Foraat: 
1. Byte = Stringlänge 
2. +3. Byte = Stringadresse 
Beispiel: Eine Stringvariable mit dem Namen ’A$’ soll in ein 


programminternes Feld ’VAR’ übertragen werden. 


LD HL, NAME 
CALL  260DH 
RST 20H 
JR Z,0K 
JP FEHLER 
OK EX DE, HL 
LD DE, VAR 
CALL  29CBH 


NAME DEFM ASF? 


VAR DEFS 255 


MSIC - Funktionen 


ıVariablennamen adressieren 

sin Variablen-Tabelle ermitteln 
sIst es eine String-Variable? 
jJa, alles klar 

snein, Fehler 

sAdresse der Variablen-Tab. in HL 
jEnpfangsfeld adressieren 
Variable übertragen 


Variablen-Name 
jEndekennung 
Enpfangsfeld 


BASIC-Funktionen unterscheiden sich von den vorausgegangenen Funktionen haupt- 
sächlich in der intensiven Benutzung des Kommaunikationsbereichs, 


Bei Anwendung der nachfolgenden Routinen ist dafur Sorge zu tragen, daß der 
Komsunikationsbereich intakt ist und nicht durch das aufrufende Maschinenpro- 
gramm zerstört oder anderweitig genutzt wurde. 


Die Routinen eignen. sich besonders zum Einsatz in Maschinenprogramm-Unterrou- 
tinen, die aus einem BASIC-Programm heraus aufgerufen werden. 
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CALL 1BZ2CH 


Diese Routine durchsucht die Programs-Tabelle nach einer BASIC-Ieile mit einer 
vorgegebenen Zeilennummer. Die zu ermittelnde Zeilennummer ist im Registerpaar 


DE bereitzustellen, 


Alle Register werden verändert. Beim Rucksprung kann der Erfolg der Aktion an 
den Status-Flags abgelesen werden. BC und HL enthalten entsprechende Adressin- 


formationen. 
Status Flags Registerinhalte 
Zeile gefunden £/2 BC = Startadresse der Zeile 


in der Programatabelle 


Zeile nicht gefunden, NC/Z HL/BC = Endadresse des Programms + 1 
Zeilennummer zu groß 

Zeile nicht gefunden, NC/NZ BC = Adresse der Zeile nit der 
Jedoch größere Zeilen- nächsthöheren Zeilennumer 
nummern im Programs. HL = Adresse der darauf folgenden 


Beispiel: 


Zeile im Program. 


Die Programmzeile mit der Zeilennumser 508 soll im 
Programa ermittelt werden. Wenn vorhanden, ist im 
A-Register der Wert @, wenn nicht vorhanden, der Wert -1 
zu übergeben. 


LD DE,588 Zeilennumwer laden 
CALL  1B2CH sim Programm suchen 
LD Al Kennung für nicht gefunden 
JR NC, AL Zeile nicht vorhanden 
XOR A AB für gefunden 
Al F 


Die Registerpaare HL und BC enthalten entsprechend dem 
Rucksprungstatus die erforderlichen Adreßangaben gemäß 
0.a. Tabelle, 
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Zeile im Programm ermitteln 


CALL ZößDH Adresse einer Variablen eraitteln 


Mit dieser Routine kann die Variablen-Tabelle nach einer bestimaten Variablen 
durchsucht werden. Der Name der gesuchten Variablen ist in einen programminter- 
nen Feld bereitzustellen und mit HL zu adressieren. 


Ist die Variable nicht vorhanden, so wird ein neuer Eintrag in der Variablen- 
Tabelle vorgenommen. Das Wertfeld wird = 8 gesetzt. 


Beim Rücksprung enthält das Registerpaar DE die Adresse des ersten Wertein- 
trags, das Typ-Flag bei 78AFH zeigt den Typ der gefundenen Variablen an. 


Einfache Variable oder Elemente einer Matrix können mit dieser Routine ermit- 
telt werden. Bei einer Matrix ist der Index wie bei einem BASIC-Zugriff dem 
Namen anzufügen, z.B. ’A{20)’ für das 28. Element der Matrix ’A’. 


Beispiel: Die Adresse der Variablen ’AR’ soll ermittelt werden. 


LD HE, NAME Variablen-Nase adressieren 
CALL  26BDH Variablen-Adresse ermitteln 
LD CADR), DE Adresse übernehmen 


NAME DEFM P'AP Wariablen-Name 
DEFB 8 jEndekennung 
ADR DEF 8 ‚nach dem Aufruf 


Adresse der Variablen “ARF 


CALL. 1EBiH G0SUB - Emulation 

Diese Routine erlaubt den Aufruf einer BASIC-Unterroutine aus einem Maschinen- 
programm. Nach Ausführung der BASIC-Routine wird das Programs mit dem auf den 
CALL folgenden Befehl fortgesetzt. 


Alle Register werden verändert. 


Beim Einsprung muß HL die Anfangsadresse eines ASCII-Strings enthalten, in dem 
die erste Zeilennuamer der BASIC-Unterroutine angegeben ist. 


=pl- 


Beispiel! Eine BASIC-Unterroutine, beginnend bei Zeilennummer 880, soll 
aus einem Maschinenprograma aufgerufen werden. 


LD HL, ZEILE jZeilennummer adressieren 
CALL  1EBIH 3BASIC-Routine aufrufen 

ZEILE DEFM "808p si. Zeilennurer der BASIC-Rautine 
ER 8 


Dies ist nur ein kleiner Ausschnitt der verfügbaren Routinen des LASER-ROM. 
Durch intensives Studiun der dokumentierten RÜM-Auflistung können eine Vielzahl 
weiterer Routinen lokalisiert und für einen Aufruf aus Maschinenprogrammen 
nutzbar gemacht werden. 
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nenprogramm-Experten die Möglichkeit eröffnen, Funktionen 
des BASIC-ROMsS in eigenen Programmen zu nutzen, sei es, 
um einfache Datenkonvertierungen auszuführen, die Ein-/Aus- 
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nicht selber programmieren zu müssen. 
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